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BASIC 



EL lenguaje BASIC, 
cuyo nombre está for- • 
mado por las iniciales 
"Begginer's All-purpo- 
I se Symbolic Instruc- 
tion Code" (Código 
Simbólico de Instruc- 
ciones de Tipo Gene- 
ral para Principiantes), fue desarrollado 
en la Universidad de Dartmouth (Estados 
Unidos) por Thomas E. Kurtz y John Ke- 
meny, en la década de los sesenta. 

Hasta su aparición, la programación 
de ordenadores estaba muy restringida a 
los especialistas, ya que, aparte de la di- 
ficultad que entrañaba la programación 
en sí misma, pocas personas podían te- 
ner acceso a máquinas tan costosas. 

Kurtz y Kemeny concibieron el lengua- 
je BASIC con la finalidad de Iniciar a los 
estudiantes en la programación. Su éxito 
fue enorme dada la facilidad de comuni- 
cación con la máquina y la rapidez con 
que se obtenían los resultados; ello expli- 
ca, por otra parte, la enorme difusión del 
lenguaje que ha llegado a ser uno de los 
más populares al ser implementado en 
gran número de ordenadores, especial- 
mente en los de tipo doméstico. 

El gran avance que supuso el BASIC ra- 
dica en su naturaleza de lenguaje inter- 
pretado, no compilado, lo que supone 
un gran ahorro de tiempo para el progra- 
mador. 

El BASIC nació para ser un lenguaje fá- 
cil de aprender y sencillo de usar. Pero 
tiene una contrapartida. Al funcionar 



cada vez en un mayor número de orde- 
nadores de distintas marcas, han apare- 
cido también un gran número de "dialec- 
tos", es decir, de distintas versiones del 
BASIC. Sin embargo, la diferencia entre 
unas versiones y otras no es muy notable, 
y en lo fundamental suelen ser todas 
iguales. 

El estudio que se inicia a continuación 
va dirigido a cubrir las versiones BASIC de 
un conjunto de ordenadores elegidos en- 
tre los de mayor uso en la actualidad. 



(9 ¿Qué 



es el Basic? 



Todo este conjunto de palabras "raras" 
constituyen lo que se denomina un pro- 
grama en BASIC. 

Aunque parezca sorprendente este 
programa nos permite traducir cualquier 
día de la semana a tres idiomas distintos: 
inglés, francés y alemán. Primero el orde- 
nador nos preguntará qué día queremos 
traducir (en español). Una vez que le ha- 
yamos dado la respuesta nos da a elegir 
el idioma que deseamos. Después de he- 
cha la elección el ordenador imprime en 
pantalla el día que le habíamos dicho, la 
traducción al Idioma elegido y el nombre 
de dicho idioma. Sorprendente, ¿ver- 
dad? 

Sin embargo, no se trata de que copie- 
mos en nuestro ordenador este programa 
sin comprender su funcionamiento. Aun- 



que a simple vista pueda parecer que el 
BASIC es tremendamente complicado, 
en realidad, es mucho más sencillo de lo 
que aparenta. 

A lo largo de este capítulo y sucesivos 
vamos a estudiar minuciosamente el len- 
guaje BASIC de modo que ya no tendre- 
mos que limitarnos a copiar programas 
hechos por otros, sino que podremos 
crear nuestros propios programas. 

Comencemos por ver qué es un pro- 
grama. Mucha gente cree que los orde- 
nadores son maquinas inteligentes que 
resuelven todos los problemas. Sin em- 
bargo, cuando encendemos un ordena- 
dor, la máquina no hace absolutamente 
nada. 

El ordenador no hace nada si no se lo 
pedimos correctamente. La torma de pe- 
algo, de decirle lo que queremos 



que haga, se llama programa. Por tanto, 
un programa es un conjunto de Instruc- 
ciones que introducimos en el ordenador 
de una forma detallada y ordenada para 
que realice una determinada tarea. Lo 
sorprendente es la velocidad con que 
ejecuta los programas y la capacidad 
de cálculo que tiene, pero no es, ni mu- 
cho menos, una máquina inteligente. 

De modo que vamos a pasar ya a ver 
las diferentes Instrucciones BASIC que po- 
demos darle a un ordenador. 



PRINT y algo más 

La instrucción PRINT sirve para indicarle 
al ordenador que debe imprimir algo en 
pantalla (PRINT=lmprimlr). Pero ¿qué es lo 



A 



10 REM i****»********»»»»**»»»»*»* 
20 REM » PEQUEÑO DICCIONARIO IBM * 
30 REM »*»*#*»**»»»*»***»»»»*»**** 

40 CLS 

50 DIM E*<7> ,I*<7> ,F*<7> ,A*(7) 
60 FOR 1=0 TO 7 

70 READ E*(I) ,I*<I) ,F*(I) ,A*(I) 
80 NEXT I 

90 INPUf "¿ QUE DIA DE LA SEMANA QUIERES SABER ? " ;R* 
100 CLS 

110 FOR 1=1 TO 7 

120 IF R*=E*(I) THEN BOTO 160 

130 NEXT I 

140 PRINT "ESO NO ES UN DIA DE LA SEMANA" 
150 GOTO 90 

16o LOCATE 6, 17 ¡PRINT "IDIOMAS" 

170 LOCATE 7,17:PRINT " " 

180 LOCATE 10,15:PRINT "1.- INGLES" 

190 LOCATE 12,15:PRINT "2.- FRANCES" 

200 LOCATE 14,15;PRINT "3.- ALEMAN" 

210 LOCATE 20, 8: PRINT "PULSA LA OPCION DESEADA" 

220 A*=INKEY*¡IF A*="" THEN GOTO 220 

230 IF ASC<A*)<49 OR ASC(A*)>51 THEN GOTO 220 

240 CLS 

250 ON VAL (A*) GOSUB 400,500,600 

260 LOCATE 20,1:PRINT "¿ QUIERES TRADUCIR OTRO DIA ? (S/N) " 
270 A*=INKEY*iIF A*="" THEN GOTO 270 
280 IF A*="S" THEN CLS: GOTO 90 
290 IF A»<>"N" THEN GOTO 270 
300 CLS :END 

400 LOCATE 12,1 ¡PRINT R* ; " SE ESCRIBE "¡It(I)¡" EN "jl*<0> 
410 RETURN 

500 LOCATE 12,llPRINT R* ; " SE ESCRIBE "lF*(I)|" EN ")F*(0) 
510 RETURN 

600 LOCATE 12,1:PRINT R* ; " SE ESCRIBE ";A*<I>;" EN ";A*<0> 
610 RETURN 

700 DATA ESPAÑOL, INGLES, FRANCES, ALEMAN 

710 DATA LUNES , MONDA Y , LUNDI .MONTAG 

720 DATA MARTES, TUESDAY, MARDI .DIENSTAG 

730 DATA MIERCOLES, WEDNESDAY .MERCREDI .MITTWOCH 

740 DATA JUEVES ,THURSDAY , JEUDI ,DONNERSTAG 

750 DATA VIERNES, FRIDAY .VENDREDI .FREITAG 

760 DATA SABADO, SATURDAY, SAMEDI .SAMSTAG 

770 DATA DOMINGO ,SUNDA Y ,DIMANCHE ,S0NNTAG 



BASIC 



que puede imprimir? Podríamos decir 
que lo que queramos, pero más concre- 
tamente puede imprimir datos numéricos 
o alfanumérlcos. Estos datos pueden ser 
constantes o variables, sin embargo, de 
momento vamos a centrarnos en los 
constantes. 

Las constantes numéricas son los núme- 
ros, reales por supuesto, positivos, nega- 
tivos, enteros o decimales. De todos mo- 
dos, los números que maneja el ordena- 
dor tienen unos límites. La tabla de la fi- 
gura 1 muestra los números positivos ma- 
yor y menor que pueden manejar los 
principales ordenadores. Los valores es- 
tán representados en notación científica. 



LIMITES DE LOS NUMEROS REALES POSITIVOS 




Número real 
positivo máximo 


Número real 
positivo mínimo 


AMSTRAD 


1.7E + 38 


1E-38 


COMMODORE 


1.76 + 38 


2.938735886-39 


IBM 


106 + 38 


16-38 


MSX 


1.76 + 38 


16-38 


SPECTRUM 


16 + 38 


46-39 



Análogamente, los números negativos 
también tienen unos límites. En cualquier 
caso, es muy difícil que alcancemos es- 
tos límites en programas normales. 

Probemos a teclear la siguiente orden: 

PRINT 12345 

Le hemos dicho al ordenador que Im- 
prima en pantalla el número 12345; sin 
embargo, la máquina no hace nada. 
Para que el ordenador cumpla cualquier 
orden BASIC debemos pulsar la tecla IN- 
TRO y el ordenador obedecerá al instan- 
te. Hay ordenadores que denominan de 
forma diferente esta tecla, tal y como po- 
demos ver en la figura, pero su misión 
es la misma. „ 



DISTINTOS NOMBRES DE LA TECLA INTRO 


AMSTRAD 


INTRO o ENTER 


COMMODORE 


R6TURN 


IBM 


+ 1 


MSX 


6NT6R o R6TURN 

o- 1 





Por tanto, después de pulsar INTRO ha 
aparecido en pantalla el número 12345. 
Sin embargo, esta orden no constituye to- 
davía un programa, sino que es lo que se 
denomina un comando directo. Los co- 
mandos directos se ejecutan en cuanto 
pulsamos INTRO y no se almacenan en 
memoria. 

Los programas son la forma usual de 
funcionamiento en BASIC. Cuando traba- 
jamos de este modo, el ordenador va al- 
macenando las órdenes en su memoria 
cada vez que pulsamos INTRO, y no las 
ejecutará hasta que no se lo indiquemos 
de forma expresa. 

Para diferenciar una Instrucción de un 
programa de un comando directo basta 
con poner un número delante de la or- 
den. 

Si tecleamos ahora: 

10 PRINT 12345 

' al pulsar INTRO la orden no se realiza, sino 
que se almacena en la memoria. Ahora 
podemos escribir: 

20 PRINT 67890 

al pulsar INTRO esta instrucción se alma- 
cena en memoria junto a la anterior. De 
este modo ya tenemos un programa for- 
mado por dos instrucciones. 

Vamos a realizar un nuevo programa, 
pero antes debemos borrar el antiguo de 
la memoria, ya que no podemos almace- 
nar en memoria más de un programa si- 
multáneamente. 

Para borrar la memoria tenemos que 
teclear el comando NEW y a continua- 
ción pulsar INTRO. Además, es posible 
que la pantalla esté llena de cosas. Si 
queremos borrarla y dejarla limpia no te- 
nemos más que teclear el comando CLS. 
Algunos ordenadores disponen de la te- 
cla CLEAR para borrar la pantalla. 

No debemos confundir NEW con CLS, ya 
que CLS borra la pantalla pero no la me- 
moria, mientras que NEW borra la memo- 
ria, pero no la pantalla (excepto en el 
SPECTRUM, que también borra la panta- 
lla). Por tanto, NEW es mucho más peli- 
groso. 

Comencemos ahora un nuevo progra- 
ma: 

10 PRINT "IMPRESION DE CADENAS" 
20 PRINT "2468$" 



Al ejecutar este programa (con el co- 
mando RUN) aparecerá en pantalla la 
frase IMPRESION DE CADENAS y debajo 
2468$. Las comillas ya no aparecen, ya 
que, en realidad, su misión es indicarle al 
ordenador que está manejando una ca- 
dena, y, por tanto, no las imprime. 

Finalmente, probemos a borrar la pan- 
talla (CLS). Si ahora queremos volver a 
ejecutar el programa no tenemos más 



que teclear otra vez RUN. Sin embargo, si 
lo que queremos es volver a ver el pro- 
grama que hemos hecho, lo que se de- 
nomina el listado del programa, teclea- 
remos el comando LIST (y luego INTRO). 
De este modo volverán a aparecer en 
pantalla todas las Instrucciones que 
constituyen el programa y que están al- 
macenadas en memoria. 



RESUMEN 



PRINT 
RUN 
NEW 

CLS 




MAQUINA Z-80 

ARQUITECTURA DEL Z-80 

(Para los ordenadores Spectrum, 
Amsírad y MSX) 




E| L Z-80 es uno de los 
microprocesadores 
de 8 bits más usados 
del mercado. Debido 
a su versátil conjunto 
de 158 Instrucciones 
pueden realizarse 
complejos progra- 
mas con muy pocas instrucciones. 

Su bus de direcciones es de 16 bits, por 
lo que será capaz de direcclonar 65.536 
posiciones distintas de memoria (64 
Kbytes). Como cada posición de memo- 
ria es de sólo 8 bits, para almacenar una 
dirección en memoria se necesitarán dos 
palabras consecutivas de 8 bits. 

Como, en general, cada instrucción 
opera sobre alguna posición de memo- 
ria, deberá llevar la dirección de dicha 
posición. Por tanto, las instrucciones se 
compondrán de dos campos distintos: el 
campo de operación, que indica la ins- 
trucción a ejecutar, y el campo de direc- 
ción, que Indica la posición de memoria 
con que se desea operar. Según la lon- 
gitud de estos distintos campos, así será 
la longitud de la instrucción, por lo que 
existirán instrucciones que ocuparon 1,2, 
3 ó 4 bytes. 

Además de la memoria externa existen 
en la CPU una serie de registros. 

Estos registros están divididos en dos 
partes: registros de uso general y regis- 
tros especiales. 



Los registros de uso general son los utl- 
lizables por el usuario. 

De éstos existen dos juegos, pero para 
operar sólo se utiliza el juego principal. El 
uso del juego alternativo es para realizar 
copias de todos los registros mediante 
una única instrucción. 

Estos registros pueden usarse como 8 
de 8 bits (A,F,B,C,D,E,H,L,) o como 4 de 16 
bits (AF, BC, DE, HL). 

Los registros especiales son los usados 
por la CPU para almacenar sus datos. 

El registro A es el usado como acumu- 
lador por la CPU. 

El registro F es el de estado de la CPU 
que contiene las siguientes banderas, o 
flags: 

S: Signo. 
Z: Cero. 

X: Sin significado especial. 
H: Semiarrastre. 

P/V: Paridad/Desbordamiento. 
C: Arrastre. 

Los registros especiales son los usados 
por la CPU para sus datos. Estos son: 

— El contador de programa (PC) de 1 6 
bits. 

— El puntero de la pila (SP) de 16 bits. 

— Dos registros índice para direccio- 
namlento Indexado de 16 bits cada uno. 

— Un registro de interrupción de 8 bits. 

— Un registro de refresco de memoria 
usado por el hardware de la CPU. 



Juego principal 


Juego alternativo 




Acumulador 


Flags. 
f 


Acumulador 
A' 


Flags._ 


Registros 
generales 


B 


C 


1' 


C 


0 


E 


D' 


W. 




H 


L 


H< 


M 





Vector In- 
terrupciones 
I 



Refresco 
memoria 
R 



Registro índice IX 



Registro índice IY 



Puntero del stack SP 



Registros 
especiales 



El significado, uso y misión de las ban- 
deras y los registros indicados anterior- 
mente se verá con más detalle al expli- 
car, en otros capítulos, las diversas Ins- 
trucciones. 



I B Conjunto de instrucciones 
Lm del microprocesador Z-80 

A continuación proporcionamos al lec- 
tor una tabla con todas las microlnstruc- 
ciones del Z-80 y una explicación simbó- 
lica de cada una de ellas, que será de 
gran utilidad a la hora de programar en 
ensamblador. Por eso aconsejamos que 
se tenga presente esta tabla en futuros 
apartados de lenguaje máquina de Z-80. 

Las instrucciones están clasificadas en 
los grupos siguientes: 

— Cargas de 8 bits. 

— Cargas de 16 bits. 

— Intercambios. 

— Movimiento de bloques de memo- 
ria. 

— Búsqueda de bloques de memoria. 

— Aritmética y lógica de 8 bits. 

— Aritmética y lógica de 16 bits. 

— Operaciones de uso general en 
acumulador con banderas. 

— Instrucciones varias. 

— Rotaciones y desplazamientos. 

— Comprobación y puestas a cero y 
uno de bits. 

— Entradas y salidas. 

— Saltos. 

— Llamadas. 

— Inicializaciones. 

— Retornos. 



En la tabla se usan los siguientes símbo- 
los: 

"b = un n.° binario en un registro de 8 bits 
o de una posición de memoria. 

•CC = Códigos de estado de las bande- 
ras (Flags). 
NZ = No es cero. 
Z = Es cero. 
NC = No hay "carry". 
C = Hay "carry". 



PO m Paridad impar / no desbordamiento. 
PE = Paridad par / desbordamiento (over- 
flow). 

P = Valor positivo. 

M = Negativo (M — menos). 

*d = Destino de 8 bits (registro o posición 

de memoria). 

'dd = Destino de 16 bits (registro o memo- 
ria). 

*e = Desplazamiento de 8 bits en comple- 
mento a 2 con signo utilizado en saltos re- 
lativos y direccionamiento lndexado. 
•L = 8 posiciones especiales de memoria 
de la página cero. 

En notación decimal son 0, 8, 16, 24, 32, 
40, 48 y 56. 

"n = Cualquier número de 8 bits. 

*nn = Cualquier número de 16 bits. 
*r = Cualquier registro de propósito gene- 
ral de 8 bits (A,B,C,D,E,H, ó L). 
"S = Cualquier registro de 8 bits o posición 
de memoria como fuente. 
*Sb = Un bit en un registro de 8 bits o po- 
sición de memoria específicos. 
'SS = Cualquier registro de 16 bits o 2 po- 
siciones de memoria como fuente. 
•Suscrito con "L"= Los 8 bits menos signifi- 
cativos de un registro de 16 bits. 
'Suscrito con "H" = Los 8 bits más significa- 
tivos de un registro de 16 bits. 
*( )= El contenido entre paréntesis es uti- 
lizado como puntero de una dirección 
de memoria o de E/S. 
"Los registros de 8 bits son: 

A.B.C.D.E.H.L.I y R. 
"Los pares de 2 registros (16 bits) son: 

AF.BC.DE y HL 
"Los registros de 16 bits son: 

SP.PC.IX e IY 

"Los modos de direccionamiento utiliza- 
dos incluyen combinaciones de los si- 
guientes: 

— Inmediato. 

— Inmediato extendido. 

— Modificando página cero. 

— Relativo. 

— Extendido. 

— lndexado. 

— Registro. 

— Implicado. 

— Indirecto con registro. 

— Bit. 
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Juego principal 



Juego alternativo 



Acumulador 


Flags 


Acumulador 


Flags 


A 


f 


A' 


f 


B 


c 


B' 


C 


0 


E 


D' 


P 


H 


L 


H' 


V 



Registros 
generales 



Vector In- 
terrupciones 
/ 



Refresco 
memoria 
R 



Registro índice IX 



Registro índice IY 



Puntero del stack SP 



Contador de programa PC 



Registros 
especiales 



Mnemotécnlco 


Operación 


Comentarlo 


CARGAS DE 8 BITS 


LDr.s 
LDd.r 
LDd,n 
LDA.S 
LDd,A 


r— s 
d-r 
d-n 
A-S 

a— A 


s-r,n (HL) 

(IX+e) , (lY+e) 

d=(HL),r 

(IX+e),(IY+e) 

d-(HL), 

(IX+e),(IY+e) 

S=(BC),(DE), 

(nn),l,R, 

d=(BC),(DE). 

(nn),l,R, 


co 
i— 
m 
to 

LLJ 

a 

•2. 

! 


LD dd,nn 

LO dd,(nn) 

LD(nn),ss 

LD SP.ss 
PUSH ss 
POP dtí 


dd— nn 
dd— (nn) 
(nn)— ss 
SP-ss 

(SP-l)-ss"(SP-2)-ss 
ddi— (SP),dd M - (SP+1) 


dd-BC.DE, 

HL.SP.IX.IY 

dd»BC,DE, 

HL.SP.IX.IY 

ss-BC.DE, 

HL.SP.IX.IY, 

SS=BC,DE, 

HL,AF,IX,IY 

dd=BC,DE, 

HL,AF,IX,IY 




EX DE.HL 
EX.AF.AF 
EXX 

EX (SP).SS 


DE- HL 
AF-AF 

VhJ VhW 

(SP)- SSi (SP+1)- ss„ 


SS-HL.IX.IY 


MOV DE BLOQUES 


LDI 
LDIR 

LDD 


(DE)-(HL),DE-DE+1 
HL— HL+1,BC— BC-1 
(DE)-(HL),DE-DE+1 
HL-HL+1,BC-BC-1 
Repite hasta BC-0 
(DE)-(HL),DE-DE-1 
HL- HL-1, BC— BC-1 
Repite hasta BC-0 




BUSQUEDA DE BLOQUES 


CPI 
CPIR 

CPO 
CPDR 


A-(HL),HL-HL+1 
BC- BC-1 
A-(HL).HL-HL+1 
BC- BC-1, Repite 
hasta BC-0 o A-(HL) 
A-(HL).HL-HL-1 
BC- BC-1 
A-(HL),HL-HL-1 
BC- BC-1, Repite 
hasta BC*0 0 A=(HL) 


A-(HL) Sólo aleda a los 
tlags, no o A 


<s> 
55 

CO 

s 


ADDs 
ADCS 
SUB S 
SBCS 
AND s 
ORs 
XOR S 


A- A+s 
A— A+S+CY 
A— A-S 
A- A-S-CY 
A-A S 
A-A S 
A- A S 


CY es el tlag del co- 
rry 

s-r,n,(HL) 
(IX+e),(IY+e) 


OPERACIO 


CPs 
INCd 
DLCd 


A-S 

d-d+1 

d-a-1 


s=r,n,(HL) 
(IX+e), (lY+e) 
d=r,(HL) 
(IX+e),(IY+e) 


fe» 
= ~ 


BIT b,s 
SETb.s 
RES D.S 


Z-s» 
s,-l 

S„-0 


2 es el tlag de cero 

s=t,(HL) 

( IX +e) ,(iY+e) 



Mnemotécnlco 



ADD HL,ss 
ADC HL.SS 
SBC HLss 
ADD IX, SS 

ADD IY.SS 

INC dd 
DECdd 



DAA 

CPL 
NLG 
CCF 
SCF 



NOP 
HALT 
DI 
II 

IMO 
IM 1 
IM2 



RLCS 

RLs 

RRCS 

RRS 

SLA s 

SRAs 

SRLs 

RLD 

RRD 



IN A,(n) 
IN C(C) 
INI 

INIR 



IND 
INDR 



OUT(n),A 
OUT(C),r 
OUTI 

OTIR 

OTDR 



JP nn 
JP cc.nn 

JR e 

JR kk.o 

JP (ss) 
DINZe 



CALL nn 
CALL ccnn 



RSTL 



RET 

RETcc 

RETI 
RETN 



Operación 



HL-HL+ss 
HL-HL+ss+CY 
HL-HL-ss-CY 
IX-IX+SS 

IY- IY+SS 

dd-dd+1 

dd- dd-1 



Convierte el cont. de A en lormato 
BCD y luego suma o resta. 
A— A 
A- OO-A 
CY-ÓY 
CY-I 



No operar 
Para la CPU 
Desactiva Interrup. 
Activa Interrupciones 
Activa modo INT.O 
Activa modo INT. 1 
Activa modo INT.2 




A- (n) 
r-(C) 

(HL)-(C),HL-HL+1 
B-B-l 

(HL)-(C),HL-HL+1 
B-B-l 

Repetir hasta B-0 
(HL)— (C),HL— HL-1 

(HL)- (Q.HL-HL-l 
B— B-l 

Repetir hasta B-0 

(n)-A 

(C)-r 

(C)-(HL),HL- HL+1 
B-B-l 

(C)-(HL),HL- HL+1 
B-B-l 

(C)- (HL),HL— HL-1 
B-B-l 

Repetir hasta B-0 



PC— nn 

SI condición es verdad 
PC— nn.slno continuar 
PO— PC+e 

Si condición kk es verdad 
PC- PC+e, sino continuar 
PC- ss 

B- B-l SI B-0 
continuar, sino 
PC— PC+e 



(SP-l)-PC 

(SP-2)- PC^PC-nn 

Si condición ce es folsa continuar, 

sino c Igual que CALL nn 



(SP-l)-PC 
(SP-2)-PC l ,PC H -0 
P<V L 



PC,- (SP) 
PC„-(SP+1) 

Si condi. ce es talso continuar, sino 
a Igual a RET 
Retorno de lnter.=RET 
Retorno de Interrupción no mascá- 
ronle 



Comentarlo 



lss=BC.DE 
JHL.SP 

SS-BC.DE 
IX, SP 
SS-BCDE 
IY.SP 
dd BCD! 
HL.SP.IX.IY 
dd-BC.DE, 
HL.SP.IX.IY 



El operando debe estar 
en tormato BCD. 



8080A MODO 
Llama 0038 
Llamada directamente 



s-R,(HL) 
(IX+e),(IY+e) 



Activo tlags 



{NZ PO 

Z PE 

NC P 

,C M 

4f f 

S-HL.IX.IY 



NZ PO 

Z PE 

NC P 

C M 



NZ PO 

Z PL 

NC P 

C M 
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LOS lenguajes de alto 
nivel como BASIC, 
PASCAL, FORTRAN, 
etc., se caracterizan 
por tener instruccio- 
nes muy potentes 
con las cuales se 
pueden programar 
tareas complicadas de forma relativa- 
mente sencilla. Otra característica de es- 
ros lenguajes es aue son (o tienden a ser) 
ndependientes de las máauinas. 
Estas dos características, muy desea- 
bles para los usuarios, tienen como con- 
trapartida el hecho de que la velocidad 
de las tareas programadas en estos len- 
guajes es considerablemente menor que 
la velocidad que obtendríamos progra- 
mando las mismas tareas en Lenguaje 
Máquina. Esto es debido a que los com- 
piladores e intérpretes están diseñados 
oara los casos generales y no son capa- 
ces de emplear el conjunto de instruc- 
ciones máquina más Idóneo para ejecu- 
tar cada tarea concreta. 

Por otra parte, la mayoría de los len- 
guajes de alto nivel no contemplan si- 
quiera la posibilidad de ejecutar algunas 
tareas, como pueden ser, una determi- 
nada gestión de la memoria o de los dis- 
positivos externos. 

Los usuarios que se encuentren con es- 
tas dificultades, o los que simplemente 
quieran conocer con detalle cómo es el 
funcionamiento Interno del ordenador, son 
usuarios potenciales del Lenguaje Má- 
quina. 



Todo lo tratado en esta sección es válido para 
la familia de microprocesadores usados en los IBM 
PC que son los 8088, 8086 y 80286 de Intel. En ade- 
lante, y por simplicidad, nos referiremos al 8088 
como representativo de toda la familia. 



|wi ¿Qué es el Lenguaje 
i" Máquina? 

Estrictamente hablando, el Lenguaje 
Máquina es el lenguaje que entiende di- 
rectamente el microprocesador. La CPU 
(unidad central de proceso) del IBM PC, 
que es el microprocesador 8088 de Intel, 
reconoce un centenar de instrucciones 
diferentes. Cada instrucción es un grupo 
de 1 a 7 posiciones de memoria (bytes). 

Veamos un ejemplo: los siguientes 20 
bytes constituyen un programa en Len- 
guaje Máquina que escribe repetida- 
mente el carácter «A» sobre la pantalla: 

1E 31 CO 50 B8 00 BO 8E C0 31 FF B9 CO 03 
B8 41 Fl F3 AB CB 

Ningún programa escrito en un lengua- 
je de alto nivel puede realizar esta tarea 
de forma más rápida y concisa. Pero 
¿cuánto tiempo puede tardarse en escri- 
bir programas en este lenguaje? y ¿cuán- 
tos errores pueden cometerse transcri- 
biendo programas de este tipo? 

Los pioneros de la informática progra- 
maban de esta forma, pero afortunada- 
mente pronto se les ocurrió la Idea de 
emplear códigos nemotécnicos que sus- 
tituyeran a los códigos que entiende la 
máquina y que fueran más fáciles de re- 
cordar. A esto se le conoce como «Len- 
guaje Simbólico». El programa que reco- 
noce los códigos nemotécnicos del len- 
guaje simbólico y los traduce al Lengua- 
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je Máquina recibe el nombre de «Progra- 
ma Ensamblador». 

Debido a la estrecha relación que exis- 
te entre estos conceptos, se suelen em- 
plear como sinónimos los términos de 
«Lenguaje Máquina», «Lenguaje Simbóli- 
co» y «Lenguaje Ensamblador». 



ÍS Código Maquina 

Por una vez, podemos emular a los 
pioneros y escribir un programa direc- 
tamente en código máquina. Para ello 
contamos con el programa DEBUG sumi- 
nistrado en el diskette del sistema opera- 
tivo DOS. Si consultamos un diccionario 
de lengua Inglesa, nos encontramos con 
que el término «debug» significa «buscar 
y eliminar posibles causas de problemas, 
fallos y errores». Pues bien, este progra- 
ma sirve exactamente para eso, y es una 
ayuda prácticamente indispensable 
para hacer que funcionen correctamen- 
te los programas escritos en Lenguaje 
Máquina. Su uso nos va a facilitar la com- 
prensión de cómo el microprocesador 
ejecuta las instrucciones que le hemos 
programado. 

Cuando desde DOS pedimos la ejecu- 
ción del DEBUG, aparece en la línea si- 
guiente un guión, que es el símbolo con 
el que este programa nos indica que 
está esperando órdenes del usuario. 

A>DEBUG 

El programa es conversacional y admi- 
te 17 órdenes o «mandatos» diferentes, 
los cuales se especifican con una letra 
(la inicial de la expresión inglesa del 
mandato), seguida (opcionalmente) de 
un espacio en blanco y de unos parame- 
tros. Los parámetros, que pueden ser muy 
variados, se expresan siempre que son 
numéricos en notación hexadecimal. 

Para los que no estén familiarizados 
con esta forma de expresar los números, 
diremos que al igual que en la notación 
binaria se necesitan dos dígitos (el 0 y el 
1) y en la notación decimal se necesitan 
10(0, 1,2, 3, 4, 5, 6, 7, 8 y 9), en la nota- 
ción hexadecimal se necesitan 16 dígi- 



tos diferentes. El problema de los 6 dígi- 
tos que faltaban se ha resuelto escogien- 
do las ó primeras letras del abecedario, 
(en vez de inventar símbolos nuevos). De 
esta forma las letras A, B, C, D, E, y F re- 
presentan en esta notación los números 
decimales 10, 11, 12, 13, 14 y 15 respec- 
tivamente. En hexadecimal los números 
del 1 al 50 se escriben así: 

123456789ABCDEF10 11 12 13 
14 15 16 17 18 19 1A IB 1C ID 1E 1F 20 21 
22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 
2F 30 31 32 

El DEBUG considera equivalentes a to- 
dos los efectos las letras mayúsculas y mi- 
núsculas. 

La escritura del programa en Lenguaje 
Máquina la realizaremos en 6 pasos, en 
los que utilizaremos los siguientes man- 
datos del DEBUG: 

E (inicial de ENTER) para Introducir da- 
tos en memoria. 

D (inicial de DISPLAY) para visualizar 
parte de la memoria. 

N (inicial de ÑAME) para definir el nom- 
bre de un fichero. 

R (Inicial de REGISTER) para visualizar y 
modificar el valor de los registros. 

W (inicial de WRITE) para escribir un fi- 
chero en diskette. 

Q (inicial de QUIT) para terminar la eje- 
cución y volver al DOS. 

Paso primero: escritura de 20 números 
hexadecimales (cada uno de los cuales 
ocupará un byte) a partir de la dirección 
100 (hexadecimal) de la memoria. Escri- 
bimos "e 100 ", a continuación los 20 nú- 
meros hexadecimales que constituyen 
nuestro programa y como siempre termi- 
namos pulsando la tecla Enter. 

Antes de hacerlo, tengamos en cuenta 
que el byte número 7 del programa está 
relacionado con el tipo de pantalla a 
usar. Si se utiliza la pantalla monocroma, 
dicho byte debe ser «bO», y si se utiliza la 
de color debe ser «b8». 

-e 100 le 31 cO 50 b8 00 xx 8e cO 31 fl 
b9 cO 03 b8 41 fl f3 ab cb 

donde xx = bO (pantalla monocroma) 

b8 (pantalla de color) 



Paso segundo: comprobación de que 
os datos^ definidos son exactamente los 
que queríamos. Para ello usamos el man- 
dato "d 100 1 13" que quiere decir visua- 
;zar en la pantalla desde la dirección 
100 a la 1 13. Al hacer esto obtendremos 
en pantalla lo siguiente: 

-a 100 1 13 

OC47:0100 1E 31 C0 50 B8 00 B0 8E-C0 31 

FF B9 C0 03 B8 41. 1 P8.0. 1.9.8A 
CC47:01 10 F1 F3 AB CB ps+K 

La salida producida por este mandato 
está dividida en tres partes. A la izquier- 
da aparecen las direcciones de memo- 
•ta que se están representando (el códi- 
go 0C47 que aparece a la izquierda, 
puede variar y no debe preocuparnos). En 
ei centro se representa el contenido de 
os bytes pedidos en notación hexadeci- 
- el y a la derecha la representación AS- 
Ct de los mismos bytes. 

Debemos comprobar que los números 
que aparecen en la parte central son 
Dyte por byte exactamente los que que- 
ríamos. SI coinciden, podemos continuar 
con el tercer paso, pero si se encuentra 
algún error hay que volver a repetir el pri- 
mer paso, ya que la ejecución de pro- 
gramas en Lenguaje Máquina con erro- 
res obliga en la mayoría de los casos a 
-ccer «IPL» (arrancar de nuevo). 

Paso tercero: definición del nombre del 
qrograma. Para ello escribimos el man- 
dato «N», después un espacio y a conti- 
nuación el nombre elegido seguido de 
jn punto y la palabra «COM». Si elegimos 
oor ejemplo, el nombre «MAQUINA» escrl- 
oiremos "n maquina.com", presionare- 
mos ENTER y en la pantalla deberá apare- 
cer: 

-n maquina.com 

Paso cuarto: definición de la longitud 
ael programa que queremos guardar. El 
DEBUG necesita tenerla en el registro CX. 
D ara definir un 20 (decimal) en ese regis- 
tro, tecleamos "r ex" seguido de Enter. El 
DEBUG responde con CX seguido del va- 
cr que en ese momento contiene el re- 
9 stro y en la línea siguiente escribe dos 
ountos y espera que se especifique un 
nuevo valor para CX (en hexadeclmal). 
Nosotros escribiremos «14» (puesto que 



14 hexadecimal es lo mismo que 20 de- 
cimal) y pulsaremos ENTER. 

-f ex 
CX 0000 
:14 

Paso quinto: escritura del fichero en el 
dlskette constituyendo un programa eje- 
cutable. Utilizamos el mandato W sin pa- 
rámetros. El DEBUG devolverá un mensaje 
que confirma el número de bytes escritos 
(en notación hexadeclmal). 

-w 

Writing 0014 bytes 

Paso sexto: terminación del DEBUG y 
vuelta al DOS. Esto lo hacemos con el 
mandato Q sin parámetros. 

-q 

A> 

SI listamos ahora el directorio del dls- 
kette, podemos comprobar que tenemos 
un nuevo fichero de sólo 20 bytes de 
nombre MAQUINA.COM. Para ejecutarlo, 
escribimos su nombre (sin el punto ni la 
palabra COM) seguido de ENTER: 

A>MAQUINA 

El programa escribirá parpadeando so- 
bre la pantalla 960 veces el carácter «A». 
Como curiosidad podemos señalar que 
dicho carácter está definido en el byte 
número 16 del programa y el atributo en 
el byte siguiente. 

Este ejemplo nos ha servido para com- 
probar directamente lo árido que resulta 
el código máquina y para empezar a fa- 
miliarizarnos con el DEBUG. Ahora nos va 
a volver a servir para comprender el con- 
cepto del lenguaje simbólico. 



IffiJ Lenguaje Simbólico 

Volvemos a llamar de nuevo al DEBUG, 
esta vez usando como parámetro el nom- 
bre del programa que acabamos de 
crear. 

A>DEBUG MAQUINA.COM 
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Y ejecutamos un nuevo mandato, el 
mandato u. Esta letra es la inicial de la 
palabra inglesa -unassemble» que quie- 
re decir des-ensamblar y que nosotros 
podemos traducir por «deshacer la codi- 
ficación que hizo el ensamblador», ya 
que la forma normal de obtener el códi- 
go máquina es a través del programa en- 
samblador aunque nosotros lo hayamos 
escrito directamente en este caso. Escri- 
bimos "u 100 113", con lo cual pedimos al 
DEBUG que nos represente las Instruccio- 
nes del «lenguaje simbólico» que contie- 
nen las posiciones de memoria compren- 
didas entre las direcciones 100 y 113 
(hexadeclmal). Al pulsar Enter obtendre- 
mos: 



-u 100 1 13 



0C47:0100 


1E 


PUSH 


DS 


0C47:0101 


31C0 


XOR 


AX.AX 


0C47:0103 




PUSH 


AX 


0C47:0104 






AX.B000 


0C47:0107 


8EC0 


MOV 


ES.AX 


0C47.0109 


31FF 


XOR 


DI, DI 


0C47:010B 


B9C003 


MOV 


CX.03C0 


0C47:010E 


B841F1 


MOV 


AX.F141 


OC47:0111 


F3 


REPZ 




0C47:0112 


AB 


STOSW 




0C47.0113 


CB 


RETF 


► 


■4 ► 


< ► 


< 




zona 1 


zona 2 


zona 3 





El resultado del mandato U está dividi- 
do en tres zonas. La zona de la Izquierda 
contiene direcciones de memoria, la 
zona central representa el contenido de 
esa memoria en notación hexadeclmal 
(podemos reconocer en las distintas lí- 
neas la lista de códigos que anteriormen- 
te habíamos definido con el mandato E) 
y en la zona de la derecha se represen- 
ta el programa en «lenguaje simbólico» 
asociado a dichos códigos. 

Llegamos a la conclusión que ya ha- 
bíamos anticipado anteriormente. El có- 
digo simbólico y el código máquina son 
dos formas diferentes de representar lo 
mismo. El primero está adaptado al hom- 
bre y el segundo está adaptado a la má- 
quina, pero existe entre ambos una 
correspondencia y hay programas para 
realizar conversiones en los dos sentidos. 

En el listado del programa que nos ha 
proporcionado el DEBUG, observamos 
dos columnas. La columna de la Izquier- 
da contiene palabras como PUSH, XOR, 
MOV, etc., que son códigos nemotécnl- 
cos de Instrucciones. Lo que aparece en 
la columna de la derecha son operandos 
de dichas instrucciones. Podemos ver 
operandos de dos tipos, números hexa- 
decimales como B000, 03C0 y F141 y 
otras palabras: DS, AX, ES, DI y CX que son 
códigos nemotécnicos de registros y es 
de esto de lo que vamos a tratar en el 
tomo cuatro. 




PROGRAMAS 

PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTIUDAD 
PROGRAMAS DE GESTION 
PROGRAMAS DE JUEGOS 



N esta sección ¡remos 
viendo semana tras 
semana una serle de 
programas que, no 
sólo nos servirán para 
jugar, sino también 
para aprender mate- 
máticas, física, quími- 
ca, para llevar nuestra propia contabili- 
dad casera, nuestro fichero de libros... 
También veremos programas de ayuda 
a programador y rutinas, en BASIC y en 



CODIGO MAQUINA, con las que sacar 
más provecho a nuestro ordenador: 

Programa: Cálculo de 
determinantes 

El primer programa que vamos a ver sir- 
ve para resolver determinantes de cual- 
quier orden. La velocidad de este pro- 
grama es sorprendente aunque tenga 
que resolver determinantes de 20 x 20 (o 
de 40 x 40, que es lo máximo que acepta). 



DDE TERMINANTES 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
1 1 1 
112 
113 
111 
115 
116 
117 
11B 
119 
120 
121 
122 
123 
124 
125 
126 



a*********************************************** ******** 
******** CALCULO DE DETERMINANTES DE CUALQUIER ORDEN 

*********************************************»*, 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

DIM M(1600) ,D(1600) 
CLS ' 

INPUT "dimensión del 
FOR F»l TO DI 

FOR C»l TO DI 

F-RINT "A("|FJ", 
LET D«C-DI+F*DÍ 
INPUT M(Di 
NEXT C 
NEXT F 
LET E=0 
LET F»0 
FOR 1=1 



******************************************************** 
************* POR JUAN MANUEL GUTIERREZ LEI TON ****** 
***************************************** *************** 

***************************************»*.*»***»********» 
************* ( C) EDICIONES SIGLO CULTURAL, 1987 ****** 
****************************************************** ** 



determinante"; DI 



********** 
********** 
********** 

********** 
********** 
********** 

********** 
********** 
********** 



;C;">-"; 



LET E=E+1 
LET C=I 



TO (DI-1)*DI-1 STEP DI+1 



■ PROGRAMAS 



A 



127 IF M(C)=0 THEN LET F«llLET C-C+DIiBQTD 130 

128 IF F=l THEN GOTO 132 

129 GOTO 136 

130 IF C<DI-2 THEN GOTO 127 

131 PRINT "determinante=0":GOTO 161 

132 FOR G-I TO I+DI-E 

133 LET M(B)»M(G)+M(C) 

134 LET OC+1 

135 NEXT G 

136 LET D(E)«M(I) 

137 FOR 6-1 TO E*DI 

138 LET M(6)»M(C3)/D(E) 

139 NEXT G 

140 LET H»E 

141 LET J-I+DI 

142 LET K=M(J> 

143 LET P-J 

144 FOR G-I TO I+DI-E 

145 LET M(P)-M(P)-M(G)*K 

146 LET P=P+1 

147 NEXT G 

148 LET J-J+DI 

149 IF H<DI-1. THEN LET H-H+1:60T0 142 

150 NEXT I 

151 LET D<E+1)-M(DI*DI> 

152 LET RE-1 

153 FOR 1-1 TO DI 

154 LET RE=RE*D<I> 

155 NEXT I 

156 CLS 

157 PRINT "el determi nsnte-" ; RE 

158 LOCATE 12,20 

159 PRINT "pulse una tecla para continuar" 

160 A*=INKEY*:IF A*="" THEN GOTO 160 

161 CLS 

162 LOCATE 1,1 

163 PRINT "CALCULAR OTRO DETERMINANTE <S/N>"; 

164 LOCATE 1,33:INPUT A* 

165 IF A*="S" OR AS="s" THEN GOTO 113 

166 IF A*»"N" OR AS="n" THEN END 

167 LOCATE 12,20:PRINT "carácter no validD":GOTO 162 



A 







7 



Este programa funciona perfectamente 
en el IBM PC y compatibles, así como en 
el AMSTRAD. Para que el programa pue- 
da funcionar en otros ordenadores, pro- 
ponemos las siguientes modificaciones: 

COMMODORE: 

113 PRINT CHR$(147) 
156 PRINT CHR$(147) 
158 POKE 214,12:POKE 211,1 

161 PRINT CHR$(147) 

162 POKE 214,l:POKE 211,1 
167 POKE 214,12:POKE 211,1 

MSX: 

158 LOCATE 1,12 
162 LOCATE 1,1 
167 LOCATE 1,12 



SPECTRUM: 

119INPUT M(D):PRINT M(D) 
158 PRINT AT 12,1; 

160 LET A$=INKEY$:IF A$="" THEN GOTO 
160 

164 INPUT "LO CALCULAMOS" ;A$ 
167 PRINT AT 12,1; "Carácter no vali- 
do" :GOTO 162 



Este programa es muy fácil de pasar a 
una calculadora programable debido a 
su pequeña longitud. Para ello te acon- 
sejo que leas el manual de tu calculado- 
ra aunque no creo que tengas que hacer 
muchos cambios. Sólo necesitarás anular 
todos las sentencias LOCATE del listado. 
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2 


30 


4 4 17 7 


5 


3 3 




-6 


12 


1 


30 12 20 3 1 


2 








3 


4 


3 « 7 1/5 6 
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DETERMINANTE 1 














4 


2 


1 7 12 1 3 


27 








9 


♦ 


17 40 3 0 0 


2 


4 2 


1 




9 


9 


1 12 5 3 15 


20 


1 3 


5 


= -56 


7 


9 
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DETERMINANTE 2 






DETERMINANTE 3 






| a Resolver un determinante como el 3 a* 
I A mano es una labor casi Imposible. Con 
«3 este programa verás como tu ordenador 
: -esuelve en menos de 15 segundos. 



■ 



Notas sobre el programa 1 



Este programa está preparado para 
-acer determinantes de un máximo de 
40 x 40. Si quieres hacer determinantes 
-ás grandes tienes que cambiar el di- 



mensionado de los vectores de la línea 
112. Por ejemplo, si necesitas hacer un 
determinante de 48 x 48 la línea 112 nos 
quedaría: 

1 12 DIM M(2304):DIM D(2304)p 

El número 2304 nos resulta de multipli- 
car 48 x 48. 

SI piensas unir este programa con al- 
gún otro que tú tengas, y quieres ahorrar 
memoria, porque no necesitas realizar 
determinantes de 40 x 40, te aconsejo 
que varíes la línea 1 12 y ajustes la dimen- 
sión de los vectores a lo que necesites. 



Programa: Vocabulario inglés 



Este programa nos va a permitir apren- 
der algo más de Inglés del que ya sabe- 
mos. Está pensado para que una perso- 
na que tenga pocos conocimientos de 
dicho idioma pueda aprender poco a 
poco con él. Pero también sirve para 
aquéllos que quieran recordar todo lo 
que aprendieron hace tiempo y que casi 
han olvidado. 




VOCABULARIO INGLES 



100 
101 
102 
103 
104 
103 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DIM 
DIM 
REM 
REM 
REM 
CLS 



«i**»****»*****»*»*»*»»*»****»*** 

* * 

* ENGLISH VOCABULARY « 

* * 

* Por PETER BERGMANN » 

*««*#««*#*«»»*#*»*»»»»*****»«.#*«#** 
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VARIABLES USADAS 



FAL) 



' PALABRA ESPAXOL 
i PALABRA INGLES 
i RESPUESTAS <C0RR. 0 
■■ PALABRA USADA FLAG 
i NUMERO DE NIVEL 
' NUMERO DE RESP. CORRECTO 
i NUMERO DE RESP. FALSO 
■■ 7. CORRECTO 
1 7. FALSO 

' NUMERO ALEATORIO 
' NUMERO DE LETRAS 
1 RESPUESTAS (S/N) 
N2, I = CONTADORES 
•♦«•«•a***»*****»»»*»***»»*»»*»**»* 

S*(50) ,I*(50) 
C<50) ,U(50) 

*** PANTALLA DE PRESENTACION »»» 



PROGRAMAS 



133 PRINT "*******************************»********" 

134 FQR I«2 TO 19 

135 PRINT "*"|TAB<40> f "*" 

136 NEXT I 

137 PRINT "********************■»*******************" 

138 LOCATE 8,13:PRINT "ENGLISH VOCABl.JL.ftRY" 

139 LOCATE 9,12:PRINT " " 

140 LOCATE 12,7iPRINT "(c> Ed. Siglo Cultural, 1987" 

141 FOR I » 1 TO 1000 

142 NEXT I 

143 REM 

144 REM *»« ENTRADA DE NIVEL »•* 

145 REM 

146 LET NP=0 

147 LOCATE 17,3 

148 INPUT "ÍOUE NIVEL QUIERES (1-4) " ¡ NN 

149 IF NN<1 OR NN>4 THEN GOTO 148 

150 RANDOMI IB TIMER 

131 LET NP«OlLET NOOaLET NF=0 
152 FOR 1=1 TO 50 
133 LET C(I>=0 

154 LET 1J(I>= O 

155 NÉXT I 

156 REM 

Íml ~í? *** LEC TURA DE LA DATA REQUERIDA »*• 

1 58 REM 

159 LET NP=NP+1 

160 IF NP=51 THEN GOTO 304 

161 IF NN=1 THEN RESTORE 323 

162 IF NN=2 THEN RESTORE 344 

163 IF NN=3 THEN RESTORE 399 

164 IF NN=4 THEN RESTORE 454 

165 REM 

166 REM »*» LECTURA DE LAS PALABRAS *** 

167 REM 

168 LET RN=INT(RND*50+1) 

169 FOR 1=1 TO RN 

170 READ S*(NP) ,I*(NP) 

171 NEXT I 

172 IF U(RN)<>0 THEN GOTO 161 

173 LET U<RN>-1 

174 CLS: PRINT: PRINT 

175 PRINT "La palabra numero ";NP¡" es : ";S*(NP) 

176 PRINT 

177 PRINT 

178 PRINT "ESCRIBE ESTA PALABRA EN INGLES" 

179 PRINT 

180 LET NL--L.EN(I*(NP) ) 

181 LOCATE 11 , INT< <40-NL>/2> 

182 FOR 1=1 TO NL 

183 PRINT 

184 NEXT I 

1 85 LOCATE 1 O , I NT ( ( 40-NL ) /2 ) -2 

186 INPUT E* 

187 CLS 

188 PRINT "MI PREGUNTA FUE "¡S*<NP> 

189 PRINT 

190 PRINT 

191 PRINT "TU RESPUESTA ES " ; E* 

192 PRINT 

193 PRINT 

J94 IF E*=I*(NP) THEN GOTO 197 

195 SOTO 219 

196 REM 

197 REM *** RESPUESTA CORRECTA *#* 

198 REM 

199 IF C(NP)O0 THEN GOTO 201 

200 LET C(NP)=1 

201 PRINT 

202 FOR 1=1 TO 10 

203 LOCATE 12,15 

204 PRINT " HAS ACERTADO" 

205 FOR J=l TO 100-3*1 

206 NEXT J 

207 LOCATE 12,15 

208 PRINT " 

209 FOR J»l TO 100-3*1 

210 NEXT J 

211 NEXT I 

212 LOCATE 15,1 

213 PRINT "CQUIERES OTRA PALABRA? (S/N) " 

214 INPUT R* 



215 1F R* = "S" THEN GOTO 157 

216 IF R* - "N" THEN 60T0 242 

217 GOTO 212 

218 REM 

21 V REM *** RESPUESTA ERRONEA *** 

220 REM 

221 IF C(NP)<>0 THEN GOTO 223 

222 LET C(NP)-2 

223 FOR 1=1 TO 7 

224 LOCATE 12,8 

2.25 PR I NT "LO SIENTO. NO HAS ACERTADO" 

226 FOR J-l TO 40+3*1 

227 NEXT J 

228 LOCATE 12,8 

229 PRINT " 

230 FOR J = l TO 40+3*1 

231 NEXT J 

232 NEXT I 

233 LOCATE 13,1 

234 INPUT "ÍQUIERES INTENTARLO OTRA VEZ (S/N) " ; R* 

235 IF R*="S" THEN GOTU 174 

236 IF R*<>"N" THEN GOTO 233 

237 LOCATE 15,1 

23B PRINT "LA RESPUESTA ERA! "jI*(NP> 

239 FOR 1=1 TO 2000 

240 NEXT I 

241 GOTO 159 

242 REM 

243 REM *** CALCULO DE 7. DE ACIERTOS *** 

244 REM 

245 FOR 1=1 TO NP 

246 IF C<I)=1 THEN NC=NC+1 

247 IF C(I>=2 THEN NF=NF+1 

248 NEXT I 

249 LET PC=<NC/NP)*100 

250 LET PF=(NF/NP)*100 

251 REM 

252 REM *** IMPRESION DE RESULTADOS *** 

253 REM 

254 CLS 

255 PRINT TAB ( 12) ! "RESULTADOS FINALES" 

256 PRINT TAB< 1 1 ); "====================" 

257 PRINT 

258 PRINT "NUMERO DE PREGUNTAS = " ; NP 

259 PRINT " NUMERO DE ACIERTOS = " ; NC 

260 PRINT "NUMERO DE ERRORES = " j NF 

261 PRINT "PORCENTAJE ACIERTOS = "jPCj "7." 

262 PRINT "PORCENTAJE FALLOS = "jPF|''X" 

263 PRINT 

264 PRINT 

265 PRINT 

266 IF PC<40 THEN PRINT "TE QUEDA MUCHO POR APRENDER" 

267 IF PO40 AND PC<70 THEN PRINT "TIENES QUE ESTUDIAR MAS" 
26B IF PO70 AND PC<90 THEN PRINT "NO ESTA MAL PERO ..." 

269 IF PC>=90 THEN PRINT "SE VE QUE ERES UN EXPERTO!" 

270 PRINT 

271 PRINT 

272 INPUT "fQUIERES LA LISTA DE LAS PALERAS? (8/IM>"|R* 

273 IF R*="N" GOTO 297 

274 IF R*<>"S" GOTO 272 

275 REM 

276 REM *** IMPRESION DE LAS PALABRAS USADAS *** 

277 REM 

278 LET Nl=l 

279 LET N2=15 

280 CLS 

281 PRINT "PALABRAS" 

282 PRINT 

283 PRINT "EN ESPA7.0L" , "EN INGLES";" CORRECTO" 

284 PRINT " "," "| " " 

285 IF NP<N2 THEN LET N2=NP 

286 FOR I=N1 TO N2 

287 PRINT S*(I) ,I*(I) 

288 LOCATE 1+4,30 

289 IF C(I)=1 THEN PRINT "SI "¡GOTO 291 

290 PRINT "NO" 

291 NEXT I 

292 IF NPON2 THEN N2=N2+15 

293 LET N1=N1+15 

294 PRINT 

295 INPUT "< CONTINUAMOS? (ENTER)";A* 



PROGRAMAS 



¿ 



296 IF NPON2 GOTO 280 

297 PRINT 

298 PRINT 

299 INPUT "í QUIERES CONTINUAR CON OTRO NIVEL? <S/N)";R* 

300 IF R*»"S" THEN GOTO 144 

301 IF R*«"N" THEN END 

302 GOTO 299 

303 REM 

304 REM 

303 REM #»» SIN PALABRAS *** 

306 REM 

307 CL.B 

308 PRINT 

309 PRINT 

310 PRINT 

311 PRINT 

312 PRINT "NO HAY MAS PALABRAS DEL NIVEL " ; NN; " . " 

313 FOR I = 1 TO 5000 

314 NEXT I 

315 GOTO 242 

316 REM 

317 REM *****»*»»#»*»*»*»»»»»*»****»»»» 

318 REM * DATA * 

319 REM »*****#***##*«•********»»*«-****» 

320 REM 

321 REM *»* NIVEL. 1 *** 

322 REM 

323 DATA "LLUVIA" , "RAIN" , "GATO" , " CAT" , "HOMBRE" , "MAN" , "HORA" , "HOUR" , "SOL" , "SUN" , " 
HERMANO" , "BROTHER" , "MADRE" , "MOTHER" , "PERRO" , "DOG " , "MESA" , " TABLE" , "MINUTO" , "MINUT 
E" , "PADRE" , "FATHER" 

324 DATA "MUJER" , "WOMAN " , "HERMANA" , "SISTER" , "NIEVE" , "SNOW" , "TIO" , "UNCLE" , "TIA" , " 
AUNT" , "AMIGO" , "FRIEND" , "SILLA" , "CHAIR" 

325 DATA "POLLO" , "CHICKEN" , "COMIDA" , "FOOD" , "COCHE" , "CAR" , "NI7.0" , "CHILD" , "PRIMO" , 
"COUISIN" , "CASA" , "HOME " 

326 DATA "PUERTA" , "DOOR" , "VENTANA" , "WINDOW" , "TU" , " YOU" , "UNO" , "ONE" , "DOS" , "TWO" , " 
TRES" , "THREE" , "CUATRO" , "FOUR" , "CINCO" , "FIVE" , "SEIS" , "SIX" , "SIETE" , "SEVEN" , "OCHO" 
, "EIGHT" , "NUEVE" , "NINE" , "DIEZ" , " TEN" 

327 DATA "LUNES" , "MONDAY" 

328 DATA "MARTES" , "TUESDAY" 

329 DATA "MIERCOLES" , "WEDNESDAY" 

330 DATA "JUEVES" , "THURSDAY" 

331 DATA "VIERNES" , "FRIDAY" 

332 DATA "SABADO" , "SATURDAY" 

333 DATA "DOMINGO" , "SUNDAY" 

334 DATA "POBRE" , "POOR" 

335 DATA "RICO" , "RICH" 

336 DATA "DINERO" , "MONEY" 

337 DATA "CARTA" , "LETTER" 
"PALABRA", "WORD" 
"NOCHE" , "NIGHT" 
"LUNA" , "MOON" 



*** NIVEL 2 *»# 



338 DATA 

339 DATA 

340 DATA 

341 REM 

342 REM 

343 REM 

344 DATA "RATON" , "MOUSE " 

345 DATA "MONO" , "MONKEY" 

346 DATA "MES" , "MC1NTH" 

347 DATA "A%0" , " YEAR" 

348 DATA "BOCA" , "MOUTH" 

349 DATA "MOMENTO" , "MOMENT" 

350 DATA "MEDIANOCHE", "MIDNIGHT" 

351 DATA "CARNE" , "MEAT" 

352 DATA "LECHE" , "MILK" 
333 DATA "HUEVOS" , "EGGS" 

354 DATA "AGUA" , "WATER" 

355 DATA "HIELO", "ICE" 

356 DATA "LIBRE", "FREE" 

337 DATA "LECHUGA" , "LETTUCE" 

358 DATA "TOMATE" , "TOMATO" 

359 DATA "CEBOLLA" , "ONION" 

360 DATA "ENERO", "JANUARY" 

361 DATA "FEBRERO" , "FEBRUARY" 

362 DATA "MARZO" , "MARCH" 

363 DATA "ABRIL" , "APRIL" 

364 DATA "MAYO" , "MAY" 

365 DATA " JUNIO" , "JUNE" 

366 DATA " JULIO" , " JULY" 

367 DATA "AGOSTO" , "AUGUST" 

360 DATA "SEPTIEMBRE" , "SEPTEMBER" 

369 DATA "OCTUBRE" , "OOTOBER" 

370 DATA "NOVIEMBRE" , "NOVEMBER" 

371 DATA "DICIEMBRE ","DECEMBER" 

372 DATA "FECHA" , "DATE" 

373 DATA "TIEMPO" , "WEATHER" 

374 DATA "OTOZO" , "AUTUMN" 
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397 

398 

399 

400 

401 
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403 

404 
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406 

407 
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411 
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435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 
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DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DA I A 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

REM 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

REM 

REM 

DATA 

DATA 

DATA 



"VERANO" , "SUMMER" 
" INVIERNO", "WINTER" 
"PRIMAVERA","SPRING" 
"ESTRELLA" , "STAR" 
" DERECHO "," R I GHT " 
"IZBUiERDO'V'LEPT" 
"CAMINO" , "ROAD" 
"CALLE" , "STREET" 
"AZUL." , "BUJE" 
"ROJO", "RED" 
"VERDE", "BREEN" 
"NARANJA", "ORANGE" 
"AMARILLO", "YELLOW" 
"BLANCO" , "WHITE" 
"NEGRO" , "BLACK" 
"PLATANO" , "BANANA" 
"ACEITUNA ".."OLIVÉ" 
"AHORA" , "NOW" 
"DONDE" , "WHERE" 
"NOMBRE ",NAMIr" 
"LAGO" , "LAKE" 

*** NIVEL 3 «»* 

"TINTA", "INK" 
"AQUI " , "HERE" 
"FRIO'V'COLD" 
"CALOR" , "WARM " 
"CALIENTE", "HOT" 
"SUELO" , "FLOOR" 
"NIEBLA" , "FOG" 
"TENEDOR " , "FQRK" 
"CUCHILLO" , "KNIFE" 
"CUCHARA" , "SPOON" 
"DEPORTE" , "SPORT" 
"SUR" , "SOUTH" 
"NORTE" , "NORTH " 
"OESTE" , "WEST" 
"ESTE " , "EAST" 
"FACIL" , "EASY" 
"OREJA" , "EAR" 
"CODO" , "ELBOW" 
"EMPLEADO" , "EMPLÜYEE" 
"TRABAJO" ," JOB" 

"OFICINA" "OFFICE" 
"EDIFICIO , "BUILDING" 
"MUSICA" , "MUSIC" 
" DESAYUNO" , "BREAKFAST" 
"DICCIONARIO" , "DICTIONARY" 
"DIENTE", "TOOTH" 
"DIOS'V'GOD" 
"ENSALADA", "SALAD" 
"ESCLAVO" , " SLA VE" 
"FISICA" , "PHYSICS" 
"FRASE" , "SENTENCE" 
"MEDICINA", "MEDICINE" 
"MIEDO", "FEAR" 
"CANSADO", "TIRED" 
"ENFERMO" , "SICK" 
"FEO" , "UGLY" 
"SUCIO" , "DIRTY" 
"LIMPIO", "CLEAN" 
"VERBO" , "VERB" 
"VOZ'V'VOICE" 
"VOCAL", "VOWEL" 
"PATATA" , "POTATO" 
"CAMA" , " BED" 
"FARMACIA" , "PHARMACY" 
"PLATO", "PL ATE" 
"BOLSA'V'PURSE" 
"BOLSILLO", "POCKET" 
"MILITAR" , "MILITARY" 
"PRESIDENTE" , "PRES1DENT" 
"PAIS" , "COUNTRY" 
"VACA" , "COW" 
"COCINA" , "KITCHEN" 

*** NIVEL 5 «** 

"ABOGADO" , "ATTORNEY" 
"BIBLIOTECA" , "LIBRAR Y" 
"ESCUELA" , "SCHOOL" 
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450 DATA "ESPEJO" , "MIRROR" 

459 DATA "MILAGRO", 'MIRACLE" 

460 DATA "CARTERO", "POSTMAN" 

461 DATA "POBLACION" , "PQPULATIQN" 

462 DATA " ARROZ " , "RICE " 

463 DATA "BOMA" , "RUBBER" 

464 DATA "RIESGO" , "RISK" 

465 DATA "ESTILO" , "STYLE" 

466 DATA "FUERZA" , "STRENBTH" 

467 DATA "CORRIENTE" , "8TREAM" 
466) DATA "VELOCIDAD" , "SF'EED" 

469 DATA "RUTINA" , "ROUTINE" 

470 DATA "POSDATA" , "POSTSCRIPT" 

471 DATA "HUELLA" , "NECK" 

472 DATA "TIERRA" , "LAND" 

473 DATA "RANA" , "FROB" 

474 DATA "EMPERADOR" , "EMPEROR" 
473 DATA "COCINERO" , "COOK" 

476 DATA "PELICULA" , "MOVIE" 

477 DATA "OPORTUNIDAD" , "CHANCE" 

478 DATA "MEJ ILLA" , "CHEEK" 

479 DATA "CABALLERO" , "GENTLEMAN" 

480 DATA "CUERNO" , "HORN" 

481 DATA "MENTIROSO" , "LIAR" 

482 DATA "LUZ " , "LIGH7 " 

483 DATA "HORNO" , "OVEN" 
434 DATA "PREMIO" , "PRI ZE" 
485 DATA "ESPACIO" , "SPACE" 
4B6 DATA "ESTADO" , "STATE" 

487 DATA "CUADRO" , "SQUARE" 

488 DATA "EQUIPO" , "TEAM" 

489 DATA " IMPUESTO" , "TAX" 

490 DATA "CINTA" , "TAPE" 

491 DATA "GARGANTA" , "THROAT" 

492 DATA "JUGUETE" , "TOY" 

493 DATA "LENGUA" , "TONGUE" 

494 DATA "BARCA" , "BOAT" 

495 DATA "BARRIO" , "NEIGHBORHOOD" 

496 DATA "CAMISA" , "SHIRT" 

497 DATA "CARTEL" , "POSTER" 

498 DATA "CLIMA" , "CLIMATE" 

499 DATA "FUEGO" , "FIRE" 

500 DATA "HAMBRE" , "HUNBER" 

501 DATA "ISLA","ISLAND" 

502 DATA "JEFE" , "CHIEF" 

503 DATA "LASRIMA" , "TEAR" 

504 DATA "LLAVE" , "KEY" 

505 DATA "OLOR","SMELL" 
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Aunque es un programa muy largo, me- 
rece la pena intentar introducirlo, ya que 
los resultados son mejores de lo que uno 
espera. 

El programa puede funcionar perfecta- 
mente, y sin problemas, en cualquier tipo 
de IBM o compatible así como en el AMS- 
TRAD. Para el resto de los ordenadores las 
modificaciones son las siguientes: 

COMMODORE: 

132 PRINT CHR$(147) 

138 POKE 214,8:POKE 211,12:PRINT "EN- 




Ejemplo de ejecución del programa 
«Vocabulario Inglés». 



- 



SJSH VOCABULARY" 
39 POKE 214,9:POKE 2n,11:PRINT 



POKE 214, 12:POKE 21 1,6:PRINT "(c) Ed. 
S#glo Cultural, 1987" 
•47 POKE 214,17:POKE 211,2 
150 A=RND(TI) 

' _c LET RN=INT(RND(1)'50+1) 

174 PRINT CHR$(147):PRINT:PRINT 

181 POKE 214,ll:POKE 21 1 ,INT((40- 

NL)/2)-l 

5 POKE 214,10:POKE 

211,INT((40/NL)/2)-3 
" B7 PRINT CHR$(147) 

223 POKE 214,12:POKE 211,14 
207 POKE 214,12:POKE 211,14 
212 POKE 214,15:POKE 211,0 

224 POKE 214,12:POKE 21 1,7 
125 POKE 214,12:POKE 211,7 
233 POKE 214,13:POKE 211,0 
237 POKE 214,15:POKE 211,0 
254 PRINT CHR$(147) 

280 PRINT CHR$(147) 

288 POKE 214,l+4:POKE 21 1,29 

307 PRINT CHR$(147) 



138 LOCATE 13,8:PRINT "ENGLISH VOCABU- 
IARY" 

139 LOCATE 12,9:PRINT "- " 

140 LOCATE 7,12:PRINT "(c) Ed. Siglo Cul- 
tural, 1987" 

147 LOCATE 3,17 

150 RANDOMIZE TIME 

'68 LET RN=INT(RND(1)*50+1) 

181 LOCATE INT((40-NL)/2),11 

5 5 LOCATE INT((40-NL)/2)-2, 1 0 
203 LOCATE 15,12 
207 LOCATE 15,12 
212 LOCATE 1,15 
224 LOCATE 8,12 
228 LOCATE 8,12 
233 LOCATE 1,13 
237 LOCATE 1,15 
288 LOCATE 30.1+4 

SPECTRUM: 

133 PRINT " 
^35 PRINT ;TAB(31); 

137 PRINT """•*•***•**•*"**•**********"•*" 

138 PRINT AT 8,9:"ENGLISH VOCABULARY" 

139 PRINT AT9.8;" " 

140 PRINT AT 12,3;"(c) Ed. Siglo Cultural, 
:57" 



147 REM 

150 RANDOMIZE 0 

181 PRINT AT ll,INT(32-NL)/2); 

185 PRINT AT 10,INT(32-NL)/2)-2; 

186 INPUT E$:PRINTE$ 
203 PRINT AT 12,11; 
207 PRINT AT 12,11; 
212 PRINT AT 15,1; 
224 PRINT AT 12,4; 
228 PRINT AT 12,4; 
233 PRINT AT 13,1; 
237 PRINT AT 15,1; 
288 PRINT AT 1+4,26; 




El programa da el tanto por ciento de 
aciertos y de errores. 
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Listas de las palabras que se le 
preguntaron al usuario. 
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Notas sobre el programa 2 



Este programa está especialmente di- 
señado con una Idea de crecimiento 
continuo. Esto significa que está pensado 
para que el usuario en cualquier momen- 
to pueda variar el número de palabras 
por nivel e incluso de niveles. Veamos 
cómo hacerlo. 

SI queremos tener 100 palabras por ni- 
vel, en vez de las 50 que hay actualmen- 
te, sólo tendremos que cambiar las si- 
guientes líneas: 



127 DIM S$(100):DIM l$(100) 

128 DIM C(100):DIM U(100) 
152 FOR 1=1 TO 100 

160 IF NP=101 THEN GOTO 304 
168 LET RN=INT(RND* 100+1) 

introduciendo, lógicamente, 50 palabras 
para cada nivel, en las líneas DATA. 




Programa: Calendarios 



Este programa nos permitirá Imprimir 
calendarios por la impresora. Para ello es 
necesario que el usuario tenga una im- 
presora de 80 columnas como mínimo. 
Por ello, este programa no funciona en el 
SPECTRUM, aunque en tomos sucesivos 
aparecerá la versión para SPECTRUM. 
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AJUSTA El 

pulsa ih< rran cubmdo estes listo 





Pantalla de presentación del programa 
«Calendarlo». 



CALENDARIOS 



10 REM************************************************************************** 

11 REM* 

12 REM* CCCC 



13 REM* C 

14 REM* C 
13 REM* C 

16 REM* C 

17 REM* C 
IB REM* 
19 REM* 



AAAA L 
A AL 
A AL 
AAAAAA L 
A AL 
A AL 



EEEEEE N 
E E NN 
E E 
EEEE 
E E 
E 



N DDDD 
N D D 



CCCC A 



A LLLLLL EEEEE 



* 

AAA RRRR II III 000 SSS * 
DA AR R I O OS S* 
NNND DA AR R I O OS * 
N N N D D AAAAAA RRRR I O O SSS * 

NNND DA ARR I O O S* 

NNND DA ARR I O OS S» 
N N DDDD A A R R HUI 000 SSS * 

* 

20 REM************************************************************************** 

21 REM 

****************************************************************** 
****************************************************************** 
*************** PROGRAMADO POR FRANCISCO MORALES *************** 
****************************************************************** 



22 REM 

23 REM 

24 REM 

25 REM 

26 REM 

27 REM 

28 REM 

29 REM 

30 REM 

31 REM 
100 CLS 



****************************************************************** 
****************************************************************** 
***************** < c ) Ed. Siglo Cultural, 19B7 ***************** 
****************************************************************** 



I 



101 PRINT 
##******" 

102 PRINT 

*" 

103 PRINT 
tttttt *" 

104 PRINT 
tt tt »" 

105 PRINT 
tt »" 

106 PRINT 
tttttt *" 

107 PRINT 

# »" 
10B PRINT 
tt # *" 
107 PRINT 
tttttt »" 
110 PRINT 



******»*»#*«•#***»#****#*#**»»»»****»*********»****»*»*»***«»*»***» 



» 


tttttttt 


tttttttt 


tt 


tttttttt tttt 


tt tt 


tttttttt 


tttttttt 


tttttttt 


tttttttttt 


tttttt 


* 


tt tt 


tt 


tt 


tt 


tt tt 


tttt tt 


tt 


tt 


tt 


tt 


tt tt 


« 


tt tt 


* 


tt 


tt 


tt 


tt 


# tt 


tt tt tt 


tt 


tt 


tt 


tt 


tt tt 


tt 


tt tt 


# 


tt 


tttttttt»» 


tt 


tttttttt 


tt tt tt 


tt 


tt 


tttttttttttt 


tttttttt 


tt 


tt tt 


» 


tt 


tt 


tt 


tt 


tt tt 


tt tt tt 


tt 


tt 


tt 


tt 


tt tt 


tt 


tt tt 


» 


tt tt 


tt 


tt 


tt 


# tt 


tt tttt 


tt 


tt 


tt 


tt 


tt tt 


tt 


tt tt 


* 


tttttttt 


Ñ 


tt 


«tt tttttttt 


tttttllttttt 


tt tt 


tttttttt 


ti 


tt 


tt tt 


tttttttt» 


tttttt 



<c> Ed. Siglo Cultural." 
TO 1000 



111 PRINT 
***#*#**" 

112 PRINT 

113 PRINT 

114 PRINT 

115 FOR 1=1 

116 NEXT I 

i 17 PRINT: PRINT 

118 PRINT " AJUSTA EL. PAPEL DE LA IMPRESORA." 

119 PRINT 

120 PRINT " ENCIENDE LA IMPRESORA. " 

121 PRINT 

122 PRINT " PULSA UNA TECLA CUANDO ESTES LISTO" 

123 LET A*=INKEY*:IF A*="" THEN GOTO 123 

124 LET M*=" 1987" 

125 DIM M(12) 

126 LET D=-3 

127 LET 3=0 

128 FOR N=0 TO 12 

129 READ M(N) 

130 NEXT N 

131 LPRINT " CALENDARIO DE " ; M* 

132 LPRINT " " 

133 LPRINT: LPRINT 

134 FOR N=l TO 12 



135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 



CLS 

PRINT "IMPRIMIENDO EL. CALENDARIO DEL AZO " ; M* 
PRINT: PRINT 

PRINT "ESTOY IMPRIMIENDO EL MES nO. " ; N 
PRINT: PRINT: PRINT 

LPRINT: LPRINT ¡LPRINT: LPRINT: LPRINT: LPRINT 
LET S=S+M(N-1) 
PRINT "*«";S:TAB<8) ¡ 
LPRINT "**";S;TAB<8> ; 
FOR 1=1 TO 17 

PRINT "*") 

LPRINT "«") 
NEXT I 

ON N SOTO 149,150,151,152,153,154,155,156,157,158,159,160 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT "SEPTIEMBRE"! «LPRINT " SEPT I EMBRE " i : GOTO 161 
PRINT " OCTUBRE 
PRINT "NOVIEMBRE 
PRINT "DICIEMBRE 
FOR 1=1 TO 18 
PRINT "»": 
LPRINT "»") 
NEXT I 

PRINT 365-S;"**" 
LPRINT 365-S; "»*" 
PRINT: PRINT " 
LPRINT: LPRINT " 
PRINT 
LPRINT 

FOR 1=1 TO 59 
PRINT "*"; 



" ENERO 


";: LPRINT 11 


ENERO 


" i i GOTO 


161 


" FEBRERO 


"j:LPRINT » 


FEBRERO 


» [ i GOTO 


161 


" MARZO 


"M LPRINT " 


MARZO 


" ; : GOTO 


161 


" ABRIL 


";:LPRINT " 


ABRIL 


" | t GOTO 


161 


" MAYO 


" i : LPRINT " 


MAYO 


"| IGOTO 


161 


" JUNIO 


"s.: LPRINT " 


JUNIO 


"I iGOTO 


161 


" JULIO. 


";i LPRINT " 


JULIO 


" ) 1 GOTO 


161 


" AGOSTO 


"::LPRINT " 


AGOSTO 


" 5 : GOTO 


161 



1 ; B LPRINT " OCTUBRE 
1 1 t LPRINT "NOVIEMBRE 
'::LPRINT "DICIEMBRE 



'liGÜTO 161 
'i:GOTO 161 

'I 



M 



D" 



M 



D" 



PROGRAMAS 



A 



173 LPRINT "*"J 

174 NEXT I 

175 FOR W=l TO 6 

176 PRINT 

177 LPRINT 

178 PRINT TABI4) ; 

179 LPRINT TAB<4); 

180 FOR G»l TO 7 
1B1 LET D=D+1 

182 LET D2-0-8 

183 IF D2>M<N) THEN 190 

184 IF D2>0 THEN PRINT D2¡:LPRINT D2¡ 
ll)l¡ PRINT TAB<4+8*B) ; 

186 LPRINT TAB(4+8*G)j 

187 NEXT G 

188 IF D2-M<N> THEN 196 

189 NEXT W 

190 LET D=D-G 

191 LPRINT : LPRINT 

192 FOR I"l TO 59 

193 PRINT "*"; 

194 LPRINT "*"( 

195 NEXT I 

196 NEXT N 

197 FOR 1=1 TO 6 

198 PRINT 

199 NEXT I 

200 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31 




El programa puede funcionar sin cam- 
bios en el IBM, MSX y en el AMSTRAD. Para 
el COMMODORE los cambios que hay 
que hacer son: 

COMMODORE: 

100 PRINT CHR$(147) 

131 PRINT "CALENDARIO DE 1987" 

132 PRINT " " 

133 PRINT:PRINT 

135 REM 

136 REM 

137 REM 

138 REM 
138 REM 

1 40 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 

También hay que quitar todos los LPRINT 
del listado y poner en la línea 133 
PRINT:PRINT:OPEN 1,4:CMD. 



í£ Notas sobre el programa 3 

El programa está preparado para sa- 
carnos el calendario de 1987. Si quere- 



mos que nos saque otro año tenemos 
que hacer lo siguiente. 

1. Poner el año en la línea 124 tal y 
como aparece en el listado original. 

2. Asignarle a la variable numérica D, 
que se encuentra en la línea 126, un nú- 
mero que depende del día de la sema- 
na con que empiece el año. Si el año em- 
pieza en lunes pondremos un 0. SI empie- 
za en martes un -1 y así sucesivamente. 

— LUNES = 0 

— MARTES = -1 

— MIERCOLES = -2 

— JUEVES = -3 

— VIERNES = -4 

— SABADO = -5 

— DOMINGO = -6 

3. Si el año resulta ser bisiesto enton- 
ces hay que cambiar las líneas siguien- 
tes: 

165 PRINT 366-S 

166 LPRINT 366-S 

200 DATA 0,31,29,31,30,31,30,31,31,30, 
31,30,31 



■ 



Programa: Cuatro en raya 

Este programa sólo funciona en el orde- 
-ador IBM PC, XT, AT y compatibles. Los 



aue tengáis otro ordenador no os preo- 
cupéis, este mismo programa aparecerá 
en tomos sucesivos. El programa es el nú- 
mero 2. 



CUATRO EN RAYA 



10 REM i***»*»****»********»**********»»*».*****»****»*****»*********** 



11 


REM 


* 




* 


12 


REM 


* 


444 


* 


13 


REM 


* 


4444 


* 


14 


REM 


* 


44 44 


* 


ta 


REM 


* 


44 44 


EEEEE N N RRRR AAA Y Y AAA * 


ié> 


REM 


* 


444444444 


E NN N R RA AY YA A * 


17 


REM 


* 


44 


EEE NNN RRRRR AAAAA Y Y AAAAA * 


18 


REM 


* 


44 


E NNN RRAAY A A * 


19 


REM 


* 


4444 


EEEEE NN R RA A • Y AA * 


20 


REM 


* 




* 


21 


REM 


l,|HI*l<il.'*tltHlUiimt|l»HIIHtMl!'t>'H'tl'"tltlt'lii 


22 


REM 


* 




♦ 


23 


REM 


* 


PROGRAMA REALIZADO POR Carlos Coral y Feo. Morales. * 


24 


REM 


* 




* 


25 


REM 


* 


<c> EDICIONES 


SIGLO CULTURAL. 1987 * 


26 


REM 


* 




* 



27 REM *************************************************************** 

28 REM 

100 DIM S*(2) 

101 LET S*<1>="*" 

102 LET S*(2)-"#" 

103 SCREEN 0 

104 CLS 

105 PRINT "4 EN RAYA" 

106 PRINT " " 

107 PRINT 

108 PRINT " El juego consiste en conseguir que" 

109 PRINT "cuatro de nuestras -fichas se encuentren" 

110 PRINT "en linea. Esta linea puede ser vertical," 

111 PRINT "horizontal y diagonal." 

112 PRINT 

113 PRINT " Cuando el .ordenador pregunte cual es" 

114 PRINT "tu movimiento tienes que darle la fila y" 

115 PRINT "la columna en la que te quieres colocar." 

116 PRINT "Un ejemplo. Si te vas a mover a la colum" 



"na H de la -fila 4, 
"H4. » 

" El jugador No. 1 
" El jugador No. 2 



PULSA UNA TECLA Y . . . ' 

BUENA SUERTE !'■!:*" 

THEN GOTO 126 



117 PRINT 

118 PRINT 

119 PRINT 

120 PRINT 

121 PRINT 

122 PRINT 

123 PRINT 

124 PRINT 

125 PRINT 

126 IF INKEY*-" 

127 CLS 

128 LOCATE 1,3 

129 PRINT "1 2 

130 LET R-65 

131 FOR F-3 TO 17 BTEP 2 

132 LOCATE F, 1 

133 PRINT CHR*(R> 

134 LET R-R+l 

135 NEXT F 

136 FOR F-3 TO 17 STEP 2 

137 LOCATE F,3 

138 PRINT " 

139 NEXT F 

140 LOCATE 20, 1 

141 PRINT "PULSA UNA TECLA" 

142 IF INKEY«="" THEN GOTO 140 

143 LOCATE 20, 1 

144 PRINT " 

145 LOCATE 20, 1 

146 INPUT "NOMBRE DE JUGADOR 1 

147 LOCATE 20, I 

148 PRINT " 

149 LOCATE 20, l 

150 INPUT " NOMBRE DE JUGADOR 2 

151 LOCATE 20, 1 
2 PRINT 



tendrás que escribir" 



tiene la ficha 



ti ene la f i cha * . ' 



7 8 9 10 11 12" 



"¡A* 



";BS 
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153 LOCATE 20, 1 

154 INPUT "¿ QUIEN VA A EMPEZAR (1,2) " ; TR 

155 IF TR<1 OR TR>2 THEN GOTO 153 

156 DIM A<135) 

157 IF TR-1 THEN LET C*»A*:GOTO 159 

158 LET C*"=B* 

159 LOCATE 20,1 

160 PRINT " 

161 LOCATE 20, 1 

162 PRINT "TURNO DEL JUGADOR" J TR; " ( " ¡¡ S* ( TR) ; " ) 11 

163 INPUT "¿DONDE VAS A MOVER? (COL. FILA) " ; R* 

164 IF R*="" OR LEN(R*>>3 THEN GOTO 159 

165 LET J*=MID*(R*, 1 , 1) : IF J*<"A" OR J*>"H" THEN GOTO 159 

166 LET FI-ASC(J*>~64 

167 LET 'J*=MID* <R*, 2, 3) i IF VAL(J*K1 OR VAL(J*)>12 THEN GOTO 159 
16B LET CO-VALÍJ*) 

169 LET SI-< (FI-1 ) *12>+C0 

170 IF A(SI)O0.THEN GOSUB 207 1 BOTO 159 

171 GOSUB 201 

172 IF ER=1 THEN 159 

173 FOR J-3 TO 1+FI*2 STEP 2 

174 LOCATE J , 3+ ( (CO-1 ) *3) 

175 PRINT S*(TR) 

176 FOR K-l TO 100 

177 NEXT K 

178 LOCATE J, 3+ ( (CO-1 ) *3> 

179 PRINT "." 

180 NEXT J 

181 LOCATE l+FI*2,3+( (CO-1) *3> 

182 PRINT S*(TR) 

183 LET A(SI)=TR 

184 LOCATE 20, 1 

185 PRINT " 

1S6 GOSUB 189 

187 IF TR=1 THEN LET TR=2:60T0 158 

188 LET TR=1:G0T0 157 

189 LET E=l 

190 LET A=12 

191 FOR F=E TO A 

192 IF A (F) =TR AMD A(F+1)=TR AND A(F+2)=TR AND A(F+3)=TR THEN GOTO 214 

193 IF A(F)=TR AND A(F+13)=TR AND A(F+26)=TR AMD A(F+39)=TR THEN GOTO 214 

194 IF A(F)=TR AND A(F+11)=TR AND A(F+22>«=TR AND A(F+33)=TR THEN GOTO 214 

195 IF A(F)=TR AND A(F + 12)-TR AND A(Fi-24)=TR AND A(F+36)=TR THEN GOTO 214 

196 NEXT F 

197 LET E-E+12 
19B LET A=E+11 

199 IF A<108 THEN GOTO 191 

200 RETURN 

201 FOR F-FI TO 7 

202 LET SP-SI+12 

203 IF A(SP)-0 THEN GOSUB 207 1 LET ER-lsRETIlRN 

204 NEXT F 

205 LET ER-0 

206 RETURN 

207 LOCATE 20,1 

208 PRINT " 

209 LOCATE 20, 1 

210 PRINT "ESA* JUGADA NO ES VALIDA" 

211 FOR X»l TO 2000 

212 NEXT X 

213 RE'IURN 

214 LOCATE 20,1 

215 PRINT "4 EN RAYA" 

216 FOR F-l TO 100 

217 SOUND 100+INT(RND*800),.5 
21B NEXT F 

219 LOCATE 21, 1 

220 PRINT " 

221 LOCATE 20, 1 

222 PRINT "HAS GANADO " ¡ Cí 

223 LOCATE 21. 1 

224 PRINT "PULSA UNA TECLA" 

225 IF INKEY*=" " THEN GOTO 225 

226 LOCATE 20, 1 

227 PRINT " 



228 LOCATE 20, 1 

229 INPUT "QUIERES JUGAR OTRA PARTIDA (S/N)"¡A* 

230 IF A*="S" OR A*-"s" THEN RUN 



í 



231 IF A«<>"N" AND f)*< >"n'.' THEN GOTD 226 

232 CLS 

233 PRINT "A D I O S" 

234 PRINT »———-» 

235 ENI) 




Este programa simula el juego de las 
cuatro en raya que hay en muchas ca- 
sas. El objetivo de este juego es conse- 
guir que cuatro de nuestras fichas estén 
en línea recta antes de que lo consiga 
nuestro contrincante. Aparte de lo difícil 
aue pueda resultar esto, se plantea otro 
oroblema. El tablero sobre el cual juga- 
•emos, está puesto verticalmente de ma- 
nera que no se puede poner una ficha en 
jna fila si en la fila anterior no hay otra. 
Con esto se consigue que no podamos 
ooner nuestra ficha en donde nosotros 
queramos. 
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A Estas son las fres maneras posibles de 
hacer 4 en raya, vertical, horizontal y 
2-ogonalmente. 

Este juego está planteado para dos ju- 
gadores, aunque el ordenador hace de 
arbitro e indica quién es el jugador. A 
cada jugador le corresponde una ficha 
z ferente y cada jugador tiene un turno 
-ara jugar. En este juego no se pueden 
»ariar las jugadas, por lo que es necesa- 
-o pensar mucho antes de poner nuestra 
=cha. 





\1 J¡ Ejemplo de ejecución del programa 4 en 
raya. 



■ 



Notas sobre el programa 4 



Cuando el ordenador te pida tu juga- 
da tendrás que indicar la fila y la colum- 
na en la que te quieres posicionar, en 
este orden. Según esto, si te quieres mo- 
ver a la columna 5 de la fila H, tendrás 
que darle dicho movimiento a tu ordena- 
dor como H5. 

En el caso de que pusiese 5H en vez de 
H5, el ordenador no te hará caso y te vol- 
verá a preguntar. Puedes intentar, si quie- 
res, que el ordenador acepte cualquiera 
de las dos formas. 

Este programa aparecerá para el resto 
de los ordenadores en el tomo 8. 

Programa: Copy de pantalla 
para SPECTRUM 

Este quinto programa que vamos a ver 
a continuación sólo es válido para los 




I PROGRAMAS 



usuarios del SPECTRUM. Con él podréis ha- 
cer que cualquier pantalla, de cualquier 
juego, que os guste, se grabe en una cin- 
ta de cassette para, mas tarde, poderla 
cargar para admirarla o experimentar 
con ella. 

Esta rutina es realmente útil para todos 
aquellos que les guste almacenar, ya 
sean sus propias pantallas o las de ios 
juegos comerciales, en cintas de casset- 
te. 

A continuación os damos el listado en 
ensamblador para todos aquellos que 
quieran ver cómo funciona. 



Para todos los que estén interesados 
en esta rutina damos el listado del pro- 
grama en BASIC que se encarga de al- 
macenar este programa en CODIGO MA- 
QUINA en la memoria. 



10 


• *************** ************** 


20 


i* 


COPY 


DE PANTALLA MEDIANTE * 


30 


i* 




INTERRUPCIONES * 


40 


; ******************* «••»•*»* »#*»» 


50 


í 






60 


: ***************************** 


70 


; » 


PROGRAMADO POR: * 


SO 


5 * 




* 


90 


!* 




CARLOS CORAL * 


95 


¡ ******* ***** **** ************ * 


96 


j 






100 






ORG 65279 


1 10 






DEFW RUTINA 


120 






ORG 65200 


130 






LD A, 254 


140 






LD I,A 


150 






IM 2 


160 






RET 


170 


! 






172 


; *********************** 


174 


3 






leo 


RUTINA 


DI 


190 






PUSH AF 


200 






PUSH EC 


210 






PUSH DE 


220 
230 






PUSH IX 
PUSH IY 


240 






LD A, 127 


250 






IN A, (254) 


260 






BIT 1,A 


270 






CALL 2 , TECLA2' 


280 






RST 56 


290 






POP IY 


300 






POP IX 


310 






POP HL 


320 






POP DE 


330 






POP BC 


340 






POP AF 


350 






RETI 


360 


1 






370 


; **#»***»*»»****«■«**»*** 


380 


1 






390 


TECI..A2 


LD A, 191 


400 






IN A, (254) 


410 






BIT 0,A 


420 






RET NZ 


430 






SCF 


440 






LD A, 255 


450 






LD DE, 6912 


460 






LD IX, 16384 


470 






CALL 121B 


480 






RET 



i 



COPY DE PANTALLA 



10 REM #»#»•»#*»***»#*»»»##»*»» 

20 REM * COPY DE PANTALLA ME--* 
30 REM #DI ANTE INTERRUPCIONES» 
40 REM ****»»»#»«*#»»*****#»»« 
50 REM 

60 PAPER O: BORDER On INK 6: C 
LEAR 65199 

70 PRINT " 



NTALLA 



COPY DE LA PA 



80 PRINT KOj FLASH 15" L 
EYENDO LINEAS DATA 

90 PRINT AT 10,7; "ESPERA UN MO 
MENTO" 

100 PRINT AT 12,8; "CHECKSUM = " 

I 

105 LET SUMA=0 

110 RESTORE 5000 

120 FOR 1=0 TO 56 

130 READ A 

140 LET SUMA=SUMA+A 

150 POKE 65200+1, A 

160 PRINT AT 12,19;SUMA 

170 NEXT I 

175 POKE 65279,133: POKE 65280, 
254 

180 IF SUMA=9720 THEN GO TO 30 

O 

190 PRINT AT 14,13; FLASH 1¡"ER 
ROR" 
200 BEEP 2,-10 
210 CLS 

220 PRINT " Hay algún errar en 
las lineas DATA.""'" Repásalas 
antes de continuar" 

230 GO TO 9999 

300 CLS 

310 PRINT AT 1,8; FLASH 1;"RUTI 
NA INSTALADA" 

320 PRINT Para utilizarla 

solo tienes quepulsar las teclas 

symbol-shif t yENTER a la vez" 

330 RANDOMIZE USR 65200 
IOC'0 PAUSE O 

4900 REM #**#*-##***#**##***## 
4910 REM ** LINEAS DE DATA »* 
4920 REM ####*###**##*###*«*# 
4930 REM 

5000 DATA 62,254,237,71,237,94,2 
01,243,245,197 

5010 DATA 213,229,221,229,253,22 
9,62, 127,219,254 

5020 DATA 203,79,204,212,254,255 
,253,225,221 ,225 

5030 DATA 225,209,193,241,237,77 
,62, 191 ,219 

5040 DATA 254,203,71,192,55,62,2 
55,17,0,27,221 

5050 DATA 33,0,64,205,194,4,201 




Para utilizar esta rutina sólo necesitas 
nacer RUN al programa N.° 2. Si has escri- 
to bien todos los números de las líneas 
DATA, te aparecerá un mensaje en la 
cantalla comunicándote que el progra- 
ma está almacenado en la memoria. 

Un vez que tenemos el programa en la 
memoria, para hacer que se ejecute, 
sólo tenemos que pulsar las teclas: 

SYMBOL-SHIFT y ENTER 

a la vez. Haciendo esto se grabará inme- 
diatamente la pantalla que estemos 
viendo en ese momento en el ordenador. 

E Notas sobre 
los programas 5 y 6 

Si tienes un ensamblador de Z80 y no 
•e gusta en qué dirección de memoria 
Remos colocado la rutina, puedes poner- 
ía en otro lugar de la memoria y utilizarla 
en tus propios programas. 

La rutina no espera que pulses ninguna 
ecla más después de pulsar SYMBOL- 
SHIFT y ENTER. Por ello es conveniente que 
•engas la cinta y el cassette preparado 
antes de pulsarlas. 

El programa que acabamos de ver gra- 
ca la pantalla pero no graba ninguna ca- 
becera. Como sabes, si no está grabada 
a cabecera, el SPECTRUM no puede leer 
a pantalla. Caben dos posibles solucio- 
nes a este problema: 

1 . Realizar otra rutina en CODIGO MA- 
QUINA que se encargue de leer pantallas 

n cabecera. - 

2. Hacer lo que te decimos a conti- 
nuación paso a paso: 

A. Coger una cinta virgen y rebobi- 
narla. 

B. Pulsar, a la vez, las teclas RECORD 
y PLAY. 

C. Dejar que la cinta corra durante 
10 segundos. 

D. Escribir en el SPECTRUM 

SAVE "nombre" SCREEN$ 

donde nombre es el nombre de la 
pantalla que quieres grabar. 

E. Pulsa la tecla ENTER dos veces. 

F. Cuando el ordenador haya gra- 
bado la cabecera, para el casset- 
te. 



G. Ya tenemos grabada la cabecera 
que necesitábamos. Ahora sólo 
nos queda ejecutar el programa 
4, cargar el juego del que quere- 
mos copiar la pantalla y cuando 
tengamos la pantalla a la vista 
pulsar las teclas SYMBOL-SHIFT y EN- 
TER. 

Puede que esta rutina no te funcione 
con algunos juegos, sobre todo si este 
fue realizado en los últimos dos años. Esto 
es debido a que muchos de los progra- 
mas comerciales escritos en CODIGO 
MAQUINA utilizan rutinas que usan las In- 
terrupciones para realizar el movimiento 
de los gráficos o la música del programa. 
Esto no tiene una fácil solución ya que 
cada programa necesitaría de una ruti- 
na específica, y que sólo sirviese para 1, 
si queremos copiar sus pantallas. 



f=l Master Mind numérico para 
HE Spectrum 

El programa que aparece a conti- 
nuación, y que sólo funciona en el SPEC- 
TRUM, es el típico MASTER MIND al que to- 
dos hemos jugado más de una vez. La 
particularidad de este MASTER MIND com- 
putarizado es que podemos elegir la lon- 
gitud de la combinación a adivinar así 
como el número de intentos que nos per- 
mite el ordenador. 



MASTER MIND 



10 DEF FN c*<*»,a>«CHR* 22+CHR 
* a+CHR* INT ((31-LEN a*)/2)+s* 
20 REM MASTER MIND 
30 REM 1 987 A.G.B 
10 (30 SUB 1000 
50 SO SUB 1040 
60 REM COMIENZO DEL JUEGO 
70 CLS 

SO REM DIBUJA TABLERO 
90 LET CONT=l 
100 PLOT 0,151: DRAW 255,0: PLO 
T 127,159: DRAW 0,-159 

110 PRINT AT 2,0)" JUGADA" : AT 2 
,16) "MUERTOS HERIDOS" 
120 PRINT AT 0,2) "Jugada numera 
3 "jcont 

130 REM GENERA COMBINACION 

140 LET C*="" 

150 FOR 1=1 TO NNUM 

160 LET NTEMP=INT (RND»10) 

170 LET C*'CÍ+STRÍ NTEMP 

180 NEXT I 



PROGRAMAS 



1,1, .1,2, .1,3, .5 



190 INPUT "CUAL ES TU INTENTO ? 
"; LINE I* 

200 IF LEN IÍONNUM THEN G0 BU 
B 1700: GO TO 190 
210 LET MUERTOS=0: LET HERIDOS» 

O 

220 DIM G<NNUM): DIM T (NNUM) 

230 FOR 1-1 TO NNUM 

240 IF Mtl)OIt(I) THEN 60 TO 

260 

250 LET MUERTOS=MUERTOS+li LET 
G(I)-li LET T(I>-1 

260 NEXT I 

270 FOR 1-1 TO NNUM 

280 FOR G=l TO NNUM 

290 IF I*(G)=C*(I) AND G ( I ) =0 A 
ND T(G)=0 THEN LET HERIDOS-HERI 
DOS+H LET TÍG>»1: LET G(.I>-1 

300 NEXT 8 

310 NEXT I 

320 PRINT AT CONT+3,0) " "¡I* 
)AT CONT+3, 19; MUERTOS; AT CONT+3, 
27; HERIDOS 

325 IF l*=Ct THEN GO TO 500 

330 LET C0NT=C0NT+1 

340 IF CONT>NJUG THEN GO TO 70 

O 

350 PRINT AT 0,18¡C0NT 
360 GO TO 190 
500 REM GANO 
510 RESTORE 600 

520 READ A,B: IF A=0 THEN GO T 
O 540 

530 BEEP A,Bs GO TO 520 

540 PRINT f«0; FLASH 1 ; FN C*("-E 
NHORABUENA, ADIVINASTE-" ,0) 

550 PAUSE O 

555 INPUT "" 

560 GO TO 740 

600 DATA .1,1,. 
,7,1 , 12,0,0 

700 REM PERDIO 

710 FOR 1=12 TO -12 STEP -tí BE 
EP .1,1: NEXT I 
720 BEEP 1,-12 

730 PRINT AT 0,0,,,, FLASH 1 ; FN 
C*<"-LO SIENTO, OTRA VEZ SERA-", 
O) 

735 PRINT FN C*("-LA COMBINACIO 
N ERA "+C*+" -",1) 

740 PRINT r.Oj INVERSE 1; FLASH 
1;FN C*< "-PULSA UNA TECLA-" ,0) 

750 PAUSE O 

760 GO TO 40 

999 STOP 
1000 REM INICIAL1ZA VARIABLES Y 
COLORES 

1010 LET NNUM=4: LET NJUQ-7 
1020 BORDER 1: PAPER ti INK 7: C 
LS 

1030 RETURN 
1040 REM MENU 

1050 CLS : PRINT FN C*("-MASTER 
MINO-", O) 

1060 PRINT FN C* ( "-ELIGE OPCION- 
",3> 

1070 PRINT AT 5 ,3; " 1 -JUGAR. " | AT 
7,3: "2-CAMBIAR NUMERO DE INTENTO 
S."';AT 9,3 ( "3-L0NG. DE LA COMBIN 
ACION" 

1080 PRINT AT 15, 2( "COMBINACION 
DE "¡NNUM; " DIGITOS. " 

1090 PRINT AT 17,2;" INTENTOS :"; 
NJUG 

1100 INPUT OPC 

1110 IF 0PC<1 OR 0PO3 THEN GO 
TO 1100 

1130 IF 0PC=2 THEN 
1140 IF 0PC"3 THEN 
1150 IF OPC-1 THEN 
1160 GO TO 1040 

1500 REM NUEVO NUMERO DE INTENTO 



GO SUB 1500 
GO SUB 1600 
RETURN 



1510 INPUT "CUANTOS INTENTOS ? " 
; NTEMP 

1520 IF NTEMPM4 OR NTEMP< 1 THEN 

GO SUB 1700: GO TO 1540 
1530 LET NJUG=NTEMP 
1540 RETURN 

1600 REM NUEVA LONGITUD DE COMBI 
NACION 

1610 INPUT "DE QUE LONGITUD ? "| 
NTEMP 

1620 IF NTEMP > 11 OR NTEMP<2 THEN 

GO SUB 1700: GO TO 1640 
1630 LET NNUM=NTEMP 
1640 RETURN 
1700 REM ERROR 

1710 BEEP 1,12: PRINT f.Oj FLASH 
1;FN C*< "-ENTRADA NO ACEPTADA-", 
O) I PAUSE O 
1720 RETURN 




El juego es muy sencillo. El ordenador 
pensará un número entre 3 y 10 dígitos 
de longitud y tú tienes que adivinarlo. 
Para ello cuentas con una serie de inten- 
tos variables entre 2 y 13. 




-HHSTEB MIND- 

-ELIGE OPCION- 

1 - JUGPR . 

2- CRMBIRR NUMERO DE INTENTOS. 

3- LONG. DE Lfl COMBINACION 



COMBINACION DE 4. DIGITOS. 
INTENTOS : 7 




Mlnd». 



Este es el menú del programa «Masted 



El ordenador te preguntará cuál crees 
tú que es la solución. Después de respon- 
der, el programa te dirá cuántos vivos y 
cuántos muertos acertaste. Pero, ¿qué 
son vivos y qué son muertos? Los vivos son 
aquellos dígitos que has adivinado y que 
además los has colocado en la misma 
posición en la que los tiene el ordenador. 
Los muertos son dígitos que también has 
adivinado, pero que has colocado en po- 
sición distinta de la que tiene el ordena- 



dor. Por ejemplo, si el ordenador pensó 
ei número 34661 y tú le respondiste 
¿8866, éste te dirá que tienes un vivo y 
dos muertos. El vivo es el primer seis que 
escribiste, pues se encuentra en la mis- 
ma posición que el seis que pensó el or- 
denador. Los dos muertos son el cuatro y 
el otro seis que, aunque acertaste cuáles 




eran, no los pusiste en su posición correc- 
ta. 

Por supuesto el ordenador no te dice 
qué números son vivos, cuáles son muer- 
tos ni cuáles no has acertado. Justamen- 
te en esto consiste el juego, en adivinar 
con el menor número de pistas posibles. 



l_ l i Notas sobre el programa 6 

Puede que el número de intentos te pa- 
rezca pequeño. SI quieres que el ordena- 
dor te permita hacer más de 13 Intentos 
sólo tienes que variar la línea 1520 y 
cambiarla por: 

1520 IF NTEMP>XXXX OR NTEMP<1 THEN 
GOSUB 1700:GOTO 1540 

donde XXXX es el número máximo de in- 
tentos que deseas tener. Por ejemplo, si 
quiero tener la oportunidad de realizar 
100 intentos la línea 1520 nos quedaría 
como: 

1 520 IF NTEM> 1 00 OR NTEMP< 1 THEN GO- 
SUB 1700:GOTO 1540 

Este programa aparecerá en tomos su- 
cesivos para el resto de los ordenadores. 




TECNICAS 
DE ANALISIS 

EL ANALISIS DE SISTEMAS 
INFORMATICOS 



AJO el nombre de 
«análisis informático» 
(o simplemente «aná- 
lisis») se suelen agru- 
par una serie muy va- 
riada de técnicas y 
actividades relacio- 
nadas con la racio- 
nalización y sistematización en el ámbito 
de la Informática. 

En los grandes Centros de Procesos de 
Datos u organizaciones informáticas, el 
proceso de análisis es fundamental para 
la adecuada organización y racionaliza- 
ción de los procesos. Suele haber perso- 
nas dedicadas específicamente a esta 
tarea: los «analistas». La misión de los 
analistas es servir de Interlocutores con 
los usuarios finales de los procesos que 
se van a desarrollar, para definir con 
exactitud cuáles son esos procesos y sus 
características. Posteriormente conciben 
los programas informáticos mediante los 
cuales se desarrollarán esos procesos y 
preparan la documentación que los pro- 
gramadores necesitan para escribir los 
programas correspondientes del ordena- 
dor. Además, el analista redacta el resto 
de los documentos que aseguran una 
perfecta utilización de todo el sistema: 
normas para las personas que preparan 
los datos, Instrucciones para el personal 
de explotación, etc. 

Aunque a primera vista la tarea del 
analista puede parecer simple, no lo es. 
En la fase de estudio de los procesos (en 
contacto con las personas que los reali- 
zan, manualmente, y con los usuarios fina- 



les) es usual encontrar un número enor- 
me de dificultades: las personales reali- 
zan, en ocasiones, muchas tareas de un 
modo rutinario sin saber bien por qué las 
hacen (o sin tener una idea clara de qué 
sucederá si las hicieran de otro modo, o 
cómo se pueden hacer de manera distin- 
ta...); las personas que utilizarán los resul- 
tados del proceso no saben con preci- 
sión, a veces, qué datos necesitan o qué 
otros les serían más útiles; con suma fre- 
cuencia junto con el proceso de meca- 
nización (o informatización) de los proce- 
sos hay que establecer cambios en los 
sistemas de trabajo manuales, para su ra- 
cionalización o simplificación, etc. 

Después, cuando se va a diseñar el 
proceso, hay que tener amplia experien- 
cia para hacer que el ordenador trabaje 
de un modo óptimo de acuerdo con sus 
características y con las necesidades de 
los procesos a realizar (tipo de datos que 
se manejan, volúmenes, periodicidad, 
etcétera); además, hay que procurar 
que el sistema se diseñe de un modo tal 
que la programación sea lo más sencilla 
posible. 

Por otro lado, el control de todo el pro- 
ceso es complicado y hay que preparar 
numerosos mecanismos de comproba- 
ción de datos, contraste de unos totales 
con otros, puntos de «chequeo» periódi- 
cos, etc., Incluso en la fase de programa- 
ción y puesta a punto del sistema ha de 
prever el analista una serie lo más ex- 
haustiva posible de pruebas a realizar 
para asegurar el perfecto funcionamien- 
to de cada programa y del conjunto. 



Para el desarrollo de todas estas actl- 
. dades el analista conoce y utiliza un 
conjunto de técnicas específicas que 
aseguran el éxito de su trabajo (aparte, 
c aro está, del conocimiento general de 
a máquina y otros conocimientos Infor- 
~ áticos): se suelen plasmar los diseños en 
dossieres ya estructurados (con lo que se 
asegura ia uniformidad y coherencia de 
a información); 



Constantes y tablas a utilizar en los 
cálculos. 

Codificación: códigos utilizados en 
el proceso. 

Controles, seguridades. 
Procedimientos de modificaciones 
futuras, etc. 



se utilizan métodos adecuados de repre- 
sentación, concisos y claros (ordinogra- 
mas, tablas de decisión, etc.); se diseñan 
los ficheros, los registros, etc., en formula- 
rlos preimpresos que ayudan a controlar 
una Información completa y clara; se uti- 
lizan tablas de comprobación — check- 
list (con listas de aspectos a considerar, 
para no olvidar ningún detalle)—; se de- 
sarrollan técnicas específicas de conser- 
vación para una eficaz obtención de los 
datos cuando se estudian (con los usua- 
rios externos) los problemas que se van 
a mecanizar; se manejan un conjunto de 
tablas y soluciones típicas para la resolu- 
ción de numerosas dificultades que sue- 
len surgir, etc. 

El conocimiento, aunque sea somero, 
de estas técnicas entendemos que es su- 
mamente interesante para cualquier per- 
sona que desee tener una mínima forma- 
ción en Informática, pues, aparte de la 
curiosidad que produce conocer cómo 
trabajan los profesionales de los grandes 
Centros de Informática, la mayoría de es- 
tos procedimientos son aplicables para 
el programador individual que utiliza un 
ordenador personal. En efecto, todas es- 
tas técnicas y trucos le facilitarán la de- 
finición del problema que Vd. personal- 
mente quiere resolver en su casa o en su 
oficina, le ayudarán a plasmar en un do- 
cumento (ordinograma, tabla de deci- 
sión, diseño de registro, etc.) la informa- 
ción que ha de manejar (con lo cual sim- 
plificará y optimizará su posterior tarea 
de programación), le ayudarán a Ir «do- 
cumentando» sus trabajos, etc. 

Expondremos sucesivamente el tipo de 
documentos y diseños que se suele ma- 
nejar en el análisis Informático, junto con 
técnicas y trucos, de preparación de ta- 
reas, técnicas de organización de Infor- 
mación, listas de comprobación, etc. 



ESTRUCTURA TIPICA DE UN DOSSIER DE 
ANALISIS DE UN PROGRAMA 

1 . OBJETO DE UN PROGRAMA 0 UNIDAD 
DE TRATAMIENTO (U.T.). 

1.1. Objeto del tratamiento. 
Descripción general, descrip- 
ción de los resultados a obte- 
ner, etc. 

1.2. Límites de esta U.T. 
Situación de la U.T. en el con- 
junto del sistema global pro- 
puesto, referencias a otros 
documentos o manuales de 
intsrss stc 

2. DESCRIPCION DE FICHEROS DE ENTRA- 
DA. 

Nombre de los ficheros, caracterís- 
ticas físicas (longitud de registros, 
factor de bloqueo), organización 
(tipo de registros, forma de archivo, 
etcétera), diseño del fichero (regis- 
tros), procedimientos de actualiza- 
ción, etc. 

3. DESCRIPCION DEL TRATAMIENTO. 
Resumen descriptivo, ordinograma, 
lenguaje a utilizar, ficheros interme- 
dios, utilización de programas es- 
tándar, evaluación de ocupación 
de memoria, tiempos de proceso, 
etcétera. 

4. DESCRIPCION DE LAS SALIDAS. 

Ficheros de resultados, manteni- 
miento de estos .ficheros, ficheros 
de seguridad, diseño de salidas Im- 
presas (su utilización, sus caracte- 
rísticas, etc.). 

5. ANEJOS 

Diseños de registros. 
Procedimientos de cálculo (fórmu- 
las, decimales, redondeos), etc. 
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DE PROGRAMACION 



ALGORITMOS 




f ~ r\ OS matemáticos em- 
plean la palabra «al- 
goritmo» para referir- 
se a un conjunto de 
reglas o pasos bien 
definidos que permi- 
ten realizar un cálcu- 
lo determinado. Esta 
palabra proviene del nombre del mate- 
mático árabe Abur Jáfar Mohamed Ibn 
Musa al-Jowarizmi, que vivió en el siglo IX 
y que fue famoso durante toda la Edad 
Media. 

En realidad los algoritmos no fueron in- 
ventados por el científico que les legó su 
nombre, pues ya se utilizaban en Meso- 
potamia dos mil años antes de Cristo, 
donde se disponía de sistemas de nume- 
ración relativamente complejos, que 
permitían realizar operaciones con nú- 
meros fraccionarlos y resolver ecuacio- 
nes de segundo grado. 

Algunos de los algoritmos antiguos se 
resolvían utilizando maquinarlas espe- 
ciales. Una de las más sencillas y flexibles 
era el ábaco, inventado probablemente 
en Oriente Próximo durante el segundo 
milenio antes de Cristo y perfeccionado 
en China dos mil años después de su ori- 
gen. El ábaco permite realizar operacio- 
nes aritméticas sencillas (sumas, restas, 
multiplicaciones y divisiones) mediante 
reglas bien definidas, que pueden llevar- 
se a la práctica con gran rapidez. 

Un algoritmo puede representarse es- 
quemáticamente de muchas maneras di- 
ferentes, aunque equivalentes entre sí. 



Por ejemplo, mediante un conjunto de re- 
glas numeradas como las siguientes: 

1 . Tomamos un número entero que lla- 
maremos X. 

2. Dividimos X entre 2 y calculamos el 
cociente y el resto. 

3. Sí el cociente no es cero, sustitui- 
mos X por el cociente y volvemos al paso 
2. 

4. Si el cociente es cero, damos como 
solución la sucesión de todos los restos 
obtenidos en orden inverso. 

Veamos un ejemplo de aplicación del 
algoritmo anterior: 

1. Sea X igual a 13. 

2. Al dividir X entre 2 obtenemos el 
cociente 6 y el resto 1. 

3. Como el cociente no es cero, ha- 
cemos X Igual a 6 y repetimos el paso 2. 

4. Al dividir 6 entre 2 obtenemos el co- 
ciente 3 y el resto 0. 

5. Como el cociente no es cero, ha- 
cemos X igual a 3 y repetimos el paso 2. 

6. Al dividir 3 entre 2 obtenemos el co- 
ciente 1 y el resto 1. 

7. Como el cociente no es cero, ha- 
cemos X igual a 1 y repetimos el paso 2. 

8. Al dividir 1 entre 2 obtenemos el co- 
ciente 0 y el resto 1 . 

9. Como el cociente es cero, damos 
como solución la sucesión de los restos 
obtenidos en orden inverso (1 1 0 1) y ter- 
minamos la ejecución del algoritmo. 

Como se observará, el algoritmo ante- 
rior permite convertir un número cual- 



quiera al sistema de numeración de base 
2. Una modificación trivial del mismo al- 
goritmo permite convertir números deci- 
males a cualquier base. 

Los algoritmos pueden describirse tam- 
bién mediante organigramas, también 
llamados diagramas de bloques, que son 
representaciones pictóricas de las ope- 
raciones a realizar. Veamos, por ejem- 
plo, el organigrama equivalente al algo- 
ritmo anterior: 




En este organigrama, las cajas rectan- 
gulares representan acciones a realizar, 
egándose a ellas por una entrada úni- 
ca y saliéndose, asimismo, una vez termi- 
-ada la operación correspondiente, por 
jn salida única. Los rombos, por el con- 
fcorio, no contienen acciones, sino pre- 
guntas cuya contestación representa la 
cecisión que hay que tomar para conti- 
-uar la marcha del programa. Por tanto, 
-n rombo tiene siempre más de una sáli- 
ca. En el caso más sencillo, el de la figu- 
•3 anterior, la pregunta sólo podrá res- 



ponderse afirmativa o negativamente, por 
lo que las salidas serán dos, correspon- 
diendo una de ellas a la respuesta SI y la 
otra a la respuesta NO. Sin embargo, tam- 
bién es posible hacer preguntas más 
complicadas o que puedan tener más 
de dos respuestas diferentes. Veamos al- 
gunos ejemplos: 




otros 



1 



donde se tomará la salida de la izquier- 
da si el valor de X es igual a cero, la del 
centro si vale 1 y la de la derecha si tie- 
ne cualquier otro valor. Como se obser- 
vará, el punto de bifurcación anterior da 
lugar a tres posibilidades diferentes, pero 
es fácil comprender que este tipo de pre- 
guntas pueda dar lugar a un número Ili- 
mitado de salidas posibles, como en el 
caso siguiente: 




0 1 2 3 4 5 oíros 
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Se observará que en este caso hemos 
abandonado la forma rómbica para 
adoptar la triangular, que permite dibu- 
jar un número mayor de salidas en el blo- 
que de bifurcación. 

Veamos, por último, el caso de una 
pregunta que puede responderse de dos 
o más formas posibles, diferentes del sim- 
ple SI o NO. 




Hemos mencionado dos tipos de blo- 
que: los rectangulares, que especifican 
una acción, y los rómbicos o triangulares, 
que definen los puntos de bifurcación 
condicional. Con ellos se pueden cons- 
truir organigramas o diagramas de blo- 
ques para todo tipo de programas, por 
complicados que éstos sean. En la prác- 
tica, pueden utilizarse también otros tipos 
de bloques diferentes para simplificar el 
dibujo y hacerlo más legible (bloques de 
comienzo o fin de programa, bloques de 
llamada de una subrutina, bloques que 
permiten enlazar entre sí hojas distintas 
de un organigrama muy grande), pero 
ninguno de éstos es estrictamente nece- 
sario. 

Para terminar, veamos el diagrama de 
bloques de un par de programas com- 
pletos: el primero dibuja en la pantalla 
una cubeta llena de agua en la que es- 
tán introducidos dos electrodos, por los 
que se supone circula una corriente 
eléctrica, pues de ellos surgen burbujas 
que ascienden a través del agua y desa- 



parecen rápidamente en el exterior. El 
diagrama de bloques correspondiente 
es el que se indica a continuación: 



| t Borraj j 



Dibujar la cubtta 



[ 



Dibujar los 
electrodos 



N=1 




3, 



Obsérvese que, además de los blo- 
ques rectangulares que representan ac- 
ciones y de los rombos que indican de- 
cisiones a tomar, existen en este diagra- 
ma dos bloques curvos, situados en sus 
extremos superior e inferior, respectiva- 
mente, y que no tienen otro objeto que 
ndicar claramente cuál es el principio y 



el tinal del programa. En general, este or- 
ganigrama permanecerá invariable, 
cualquiera que sea el lenguaje de pro- 
gramación que vayamos a utilizar para 
construir el programa, con una excep- 
ción que veremos más adelante. Vea- 
mos, por ejemplo, una versión del mismo 
bloque en lenguaje BASIC: 



5 REM Dibujo de un tubo lleno de agua con dos electrodos 

10 CLS 

20 LOCATE 10, lOi PRINT CHR» ( 191 ) +SPACE* (20) +CHR* (21B) 

30 LOCATE 11,1 Oí PRINT CHR« ( 179) +SPACE» (20) +CHR» ( 179) 

40 LOCATE 12, lOlPRINT CHR* ( 179) +SPACE* (20) +CHR* ( 179) 

50 LOCATE 13,10iPRINT CHR» < 195) +STRING* (20, 196) +CHR* ( 1B0) 

60 LOCATE 14,10iPRINT CHR» ( 179) +SPACE» (20) +CHR» ( 179) 

70 LOCATE 15, 10:PRINT CHR» ( 179) +SPACE» (20) +CHR» ( 179) 

SO LOCATE 16, 10: PRINT CHR* ( 179) +8PACE* (20) +CHR» ( 179) 

90 LOCATE 17,10:PRINT CHR» ( 179) +SPACE» (20) +CHR» ( 179) 

100 LOCATE IB, lOlPRINT CHR» ( 192) +STRINB» (20, 196) +CHR» (217) 

105 REM Dibujo de dos electrodos 

110 LOCATE 8,16iPRINT CHR» (218) +STRING» (12, 196) +CHR» ( 180) +" "+CHR»(191> 

120 LOCATE 9, 16:PRINT CHR» ( 179) +SPACE* (8) +CHR» (21B) +STRING» (5, 196) +CHR» (217) 

130 LOCATE 10,16iPRINT CHR* ( 179) +SPACE» (8) +CHR» ( 179) 

140 LOCATE U,16sPRINT CHR» ( 179) +SPACE» (B> +CHR» ( 179) 

150 LOCATE 12, I61PRINT CHR» ( 179) +SPACE» (8) +CHR» ( 179) 

160 LOCATE 13, 16:PRINT CHR» ( 197) +STRINB» (B, 196) +CHR* (197) 

170 LOCATE 14,16:PRINT CHR» ( 179) +SPACE* (8) +CHR» ( 179) 

180 LOCATE 15, I61PRINT CHR* ( 179) +SPACE* (8) +CHR* ( 179) 

190 LOCATE 16,16:PRINT CHR* ( 179) +SPACE* (8) +CHR* ( 179) 

200 REM Burbujitas 

205 FOR N-l TO 10 

210 X1-17:Y1-17 

220 FOR 1-1 TO 3.X1-X1-1:L0CATE XI, Yl» PRINT "o":LOCATE XI , Yl+7i PRINT"o" i NEXT 
230 Xl-17 

240 FOR 1-1 TO 3IX1-X1-1. LOCATE Xl.Yli PRINT » ".LOCATE XI , Yl+7: PRINT" " : NEXT 
250 NEXT N 




Comparando el programa con el orga- 
- grama se verá que un bucle FOR-NEXT 
c^ede representarse también haciendo 
-so únicamente de los bloques rectangu- 
ores y de los rombos. Volveremos sobre 
esto más adelante. 

Al contrario del organigrama, este pro- 
grama depende no ya solo del lenguaje 
=e programación en que ha sido escrito 
3ASIC en este caso), sino también de la 



máquina en que vaya a ejecutarse. La 
versión anterior corresponde, en concre- 
to, al ordenador personal de IBM y com- 
patibles, pero no producirá los resultados 
apetecidos en otras máquinas diferen- 
tes. Esto se debe a que las expresiones 
del tipo CHR$(2 1 8) representan un carác- 
ter gráfico en el IBM PC, pero pueden 
corresponder a otro carácter totalmente 
diferente en el SPECTRUM, a un tercero en 
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AMSTRAD, etc. Veamos cómo se modifi- Por último, vamos a ver el organigrama 
caria este mismo programa para otros or- de un programa que calcula la tabla de 
denadores: interés compuesto que puede obtenerse 



AMSTRAD: Cambiar todos los 
CHR* (191) por CHR* (156) 
CHR* (218) por CHR* (150) 
CHR*(179) por CHR* (149) 
CHR* (195) por CHR*<151) 
CHR* (180) por CHR* (157) 
CHR* (192) por CHR* (147) 
CHR* (217) por CHR* (153) 
CHR* (197) por CHR*(159) 



COMMQDORE: Cambiar todos los 

CHR* < 191 ) por CHR*(174) 

CHR* (218) por CHR* (176) 

CHR* (179) por CHR*(9B) 

CHR* (195) por CHR* (171) 

CHR* (180) por CHR* (179) 

CHR* (192) por CHR* (173) 

CHR* (217) por CHR* (189) 

CHR* (197) por CHR* (123) 

En todos los sitios donde pone 
BPACE*(20) 

se pondrá 
FOR Z=l TD 20: PRINT " ";: NEXT Z 

En todos los sitios donde pone 
SPACE* (8) 

se pondrá 
FOR Z=l TO 8: PRINT ■ ";: NEXT Z 

En todos los sitios donde pone 
STRING*(20, 196) 
se pondrá 

FOR Z=l TO 20: PRINT CHR* (99);: NEXT Z 

En todos los sitios donde pone 
STRING*(12, 196) 
se pondrá 

FOR Z=l TO 12: PRINT CHR* (99);: NEXT Z 

También hay que cambiar todas las sentencias LOCATE. 

Asi, si vemos que en el listado pone 
LOCATE 17,10 

hay que sustituirlo por 
POKE 214,17: POKE 211,10 



MSX: Cambiar el orden en todas las sentencias LOCATE. 

Así, si aparece en el listado 
LOCATE 12,10 

hay que sustituirlo por 
LOCATE 10,12 





/ 



partiendo de un capital determinado, y 
aplicándole distintos tipos de Interés du- 
rante diversos períodos de tiempo. 




1 

1 

Pedir 
del c 


valor 
apltal 











Pedir t 
de inv 


} 

empos 
ersión 






4 

Calcular la 
tabla de 
interés 







Se observará que este diagrama es to- 
talmente lineal, pues se compone de un 
conjunto de acciones consecutivas que 
se suceden unas a otras sin bifurcación 
alguna. Es evidente, sin embargo, que al- 
guno de los bloques (como el que calcu- 
la la tabla de Interés compuesto) corres- 
ponde a la realización de una acción re- 
lativamente compleja, que bajo ciertas 
condiciones será necesario especificar 
con más cuidado, descomponiéndola 
en un organigrama más detallado. Cuan- 
do hablemos de programación modular 
volveremos sobre este punto. Sin embar- 
go, esto no será necesario en este caso 
concreto, pues el lenguaje que vamos a 
utilizar (APL) para construir el programa 
correspondiente al organigrama de la fi- 
gura es lo bastante potente como 
para que el cálculo de la tabla comple- 
ta de interés compuesto pueda realizar- 
se en una sola instrucción, por lo que 
no será necesario aumentar el detalle 
del diagrama de bloques 

Esta es, precisamente, la excepción a 
la regla de que hablábamos un poco 
más arriba. Es verdad que, en general, el 
organigrama puede ser independiente 
del lenguaje de programación. Pero 
cuanto más potente sea éste, menor será 
el grado de detalle al que habrá de lle- 
gar el diagrama para resolver un proble- 
ma concreto. 

El programa representa la realiza- 
ción del diagrama de bloques anterior 
en el lenguaje APL, junto con el resultado 
de una ejecución de dicho programa. La 
correspondencia entre las líneas del pro- 
grama y los bloques de la figura es como 
sigue: 



6 

Añadir 
cabeceras 
de filas 



] 




Bloque n.°. 


Líneas n.° 


1 


1-2 


2 


3-4 


3 


5-6 


4 


7 


5 


8-9 


6 


10-11 
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[OJ RES- INTERES 

II] * DEME EL VALOR DEL CAPITAL' 

tZl CAPITAL—O 

t31 ' DEME LOS VALORES DE LAS TASAS DE INTERES ' 

ti] TASA-0 

tS] ' DEME LOS TIEMPOS DE INVERSION' 

16] TIEMPO-0 

171 VALOR * CAPITAL « ( ItTASA + 100 ) • . N TIEMPO 

[fl] BES - '-' ,11] 7 0 * VALOR 

t9] BES - (7 0 « TIEMPO ) , 1 1 J RES 

[10] RES f 'I' , RES 

til] «es - c '.ti]' ',tu i i»((cr/»s/»),i)pr/is/i),RES 



INTERES 
DEME EL VALOR DEL CAPITAL 



A 



DEME 

0: 



oew: 
□ : 



100000 
LOS VALORES DE 



10 10. S 11 11. 
LOS TIEMPOS DE 



LAS TASAS DE INTERES 



5 12 

INVERSION 



10.0 
10.5 
11. 0 
11.5 
12.0 



1 5 6 7 8 
I 1 5 

I— 

)l 116110 161051 
l| 119090 161715 
151807 168506 
151S61 172335 
157352 176231 



a 



177156 191872 211359 

182013 201157 222279 

187011 207616 230151 

192151 211252 238891 

197382 221068 217596 



A 





p*f ^ ODOS sabemos que, 

en la actualidad, 
existen muchos len- 
guajes de programa- 
ción, es decir, dife- 

v J rentes formas de de- 

(\\ cirle al ordenador lo 
■ ' que deseamos que 

naga. Lo que ocurre es que cada uno de 
ellos tiene unas características que le ha- 
cen ser más utilizado en unas áreas que 
en otras. En concreto, el LOGO, desde su 
nacimiento, ha tenido como objetivo el 
estar orientado a niños y a jóvenes. Por 
ello, sus principales aplicaciones tien- 
den a ser aquellas relacionadas con este 
tipo de usuarios. 

Así, por ejemplo, es el lenguaje que 
más se utiliza a la hora de introducir la in- 
formática en la escuela. Y esto no es por 
casualidad o por capricho, sino porque 
'iene ventajas que otros lenguajes no po- 
seen. Además de ser un lenguaje que re- 
sulta bastante fácil de aprender, ayuda 
o entrar en el mundo de la Informática (a 
conocer sus conceptos fundamentales, 
romo son los procedimientos, variables, 
nstrucciones, memoria...) de una mane- 
•a sencilla y casi como si fuera un juego. 
p or otro lado, no sólo nos permite realizar 
dibujos, sino que también se puede utili- 
zar para resolver problemas más compli- 
cados (algunos parecidos a los que se 
Plantean en el colegio). 

Para comprobar que esto es cierto, lo 
-ejor es aprender cómo podemos hacer 
aue el ordenador haga lo que nosotros 
r ueramos empleando este lenguaje. Va- 
- n .os a empezar. 



Cómo nos comunicamos 
con el ordenador 



Una vez que nuestro ordenador tiene 
cargado en su memoria él LOGO (es de- 
cir, entiende este lenguaje), podemos 
darle una serie de órdenes para que 
haga lo que nosotros queramos. Pero es- 
tas órdenes no se las podemos dar de 
cualquier manera, de la misma forma 
que a un chino no le podemos hablar en 
castellano porque no nos entendería. 
Para que el ordenador comprenda lo 
que le decimos hay que usar unas pala- 
bras especiales llamadas comandos. 

Cuando queramos que el ordenador se 
entere de lo que nosotros deseamos que 
haga se lo tenemos que escribir por me- 
dio del teclado. El teclado es una espe- 
cie de máquina de escribir con una serie 
de teclas que contienen las letras, los nú- 
meros y otros caracteres especiales que 
luego vamos a necesitar para escribir de- 
terminadas órdenes. 



RETURN 




SHIFT 



LOGO 



Además, una vez que hemos dado una 
orden, el ordenador nos ha de enseñar si 
realmente la ha cumplido o no. Para ello, 
utiliza la pantalla, que es como una tele- 
visión en la que no se ven películas o di- 
bujos animados, sino los dibujos o resul- 
tados de lo que le hemos mandado ha- 
cer. 




Ül El mundo de la Tortuga 

Cuando el ordenador está dispuesto 
para cumplir las órdenes que le demos 
usando los comandos del lenguaje 
LOGO (palabras especiales que él en- 
tiende), en la pantalla nos aparecerá lo 
siguiente: 




En el centro tenemos un triángulo (V) 
que representa a una tortuga. Esta tortu- 
ga va a ser la que va a realizar lo que no- 
sotros le digamos. Como podemos ver, su 
posición inicial es estar en el centro de 
la pantalla y mirando hacia arriba. 

La Interrogación (?) nos dice que la tor- 
tuga está esperando a que le demos una 
orden. 



Por último, el cuadradlto (■) se llama 
cursor y sirve para irnos mostrando lo que 
nosotros escribamos en el teclado. Por 
ejemplo, si escribimos hola nos quedará: 




Sólo nos queda saber cómo decirle a 
la tortuga que cumpla la orden que le he- 
mos dado. Para ello, existe una tecla que 
hemos de pulsar cada vez que queramos 
que la tortuga ejecute un comando. Esta 
tecla se llama Return o Enter y en nues- 
tro teclado puede aparecer así: 




Ahora que ya sabemos cómo comuni- 
carnos con la tortuga, vamos a empezar 
a aprender su lenguaje: el LOGO. 



Primeros comandos 

Nuestra tortuga lleva en su espalda un 
lápiz que le permite Ir pintando cuando 
anda, es decir, al moverse va dejando un 
rastro. Aprovechando esto, podemos 
darle órdenes para que haga dibujos. 

Lo primero que le podemos decir es 
que vaya hacia delante. Para eso, se uti- 
liza el comando 

avanza n 

o en abreviatura 

av n 

donde n es el número de pasos que que- 
remos que dé. 




Así, si le decimos av 10 y damos a la te- 
cla de Return, en la pantalla aparecerá: 




La tortuga ha ejecutado nuestra orden 
y espera que le demos otra. 

Si ahora queremos que vaya hacia la 
derecha, le hemos de decir que tuerza 
hacia este lado. Para ello, el comando 
que hemos de usar es: 

giraderecha m 
o en abreviatura 

gd m 

siendo m el número de grados que que- 
remos que gire. 

Por el contrario, si queremos que vaya 
hacia la izquierda, el comando es: 

giralzquierda m 

o 

gim 

Por último, si en lugar de avanzar quere- 
mos que ande hacia atrás, el comando 

retrocede n 

o 

re n 

siendo n el número de pasos. 

Veamos el resultado de ejecutar algu- 
nos comandos de este tipo: 





Primeros dibujos 



Vamos a decirle a la tortuga que pinte 
un cuadrado. Para ello, le tenemos que 
dar las siguientes órdenes: 



á 



PROGRAMA 1 

? AV SO 

? GD 90 

? AV SO 

? GD 90 

? AV SO 

? GD 90 

? AV SO 
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Como resultado tendremos: 




Si ahora queremos dibujar un rectángu- 
lo, primero hemos de borrar el dibujo an- 
terior. Para decirle a la tortuga que borre 
todo lo que haya pintado en la pantalla 
y vuelva a su posición original (en el cen- 
tro y mirando hacia arriba) usamos el co- 
mando 

borrapantalla 

o 

bp 

Tras mandar a la tortuga que lo ejecu- 
te nos quedará: 




Ya podemos dibujar nuestro rectángu- 
lo. Para ello, escribimos lo siguiente: 



PROGRAMA g 

? AV SO 
? 6D 90 
? AV 50 
? GD 90 



? AV SO 
? GD 90 
? AV 50 



[ ] 

y como resultado tenemos: 




Si queremos que la tortuga vuelva a su 
posición inicial sin borrar nuestro dibujo, 
hemos de escribir el comando: 

centro 

Por ei contrario, si queremos que la tor- 
tuga borre el dibujo, pero que no vuelva 
a su posición inicial, el comando es: 

limpia 

Por tanto, si damos la orden bp, esto es 
equivalente a decir primero centro y lue- 
go limpia: 

BP = CENTRO + LIMPIA 

Para comprobarlo: 




Vamos a hacer que ahora la tortuga 
pinte una letra, por ejemplo, la "C". Para 
ello, le damos las siguientes órdenes: 




Ya está. Nos ha quedado: 




Ahora vamos a dibujar una bandera. 
Hemos de escribir lo siguiente: 



? BP 
? AV 60 
? GD 90 
? AV SO 
? ED 90 
? AV 30 
? GD 90 
? AV 50 
? GD 90 
? AV 10 



? GD 90 

? AV 50 

? RE 50 

T GI 90 

? AV 10 

? GD 90 

? AV 30 




y nos queda: 




Ahora os toca a vosotros. Podéis dibu- 
jar lo que se os ocurra. 



Os proponemos 



]. Haz que la tortuga pinte este labe- 
rinto: 





posición 
inicial de 
la tortuga 



48 logo 



2. Ahora pinta una escalera: 




3. Intenta una ventana: 



4. Pinta un cuadrado usando sólo los 
comandos <3I y RE. 

5. También puedes hacer que dibuje 
los números: 

E3S5B1B9D 

6. Ahora algunas letras: 

REIDU 
bFGHLPT 

15 Giros más complicados 

Hasta ahora, en todos los dibujos que 
hemos realizado los giros de la tortuga 
eran de 90 grados. Pero existen figuras en 



las que hemos de hacer líneas oblicuas. 
Para ello, la tortuga debe avanzar o re- 
troceder de una forma inclinada. 

Vamos a verlo con un ejemplo. Supon- 
gamos que queremos dibujar unas mon- 
tañas de esta forma: 




Como vemos, para empezar, la tortuga 
no ha de girar 90, sino menos. Por tanto, 
el conjunto de comandos serían: 



? BD 45 
? AV 25 BD 90 
? AV 25 BI 90 
? AV 25 GD 90 
? AV 25 GI 90 
? AV 25 GD 90 
? AV 25 GI 90 

í 



Como se puede ver, podemos escribir 
en una misma línea varios comandos, 
siempre y cuando dejemos al menos un 
espacio en blanco entre ellos. 

Podemos pintar ahora un triángulo. Los 
ángulos de un triángulo son de 60 gra- 
dos. Pero si hacemos que la tortuga gire 
este número de grados no nos saldrá 
esta figura. Hemos de girar 120. Más ade- 
lante veremos por que. 

Por tanto, tenemos que dando estas ór- 
denes: 



? AV 50 BD 120 
? AV 50 BD 120 
? AV 50 BD ISO 





Cómo cargar el Logo 

El Logo, al igual que el Basic, es un 
lenguaje de programación. Por ello es 
necesario que el Logo se encuentre 
en la memoria del ordenador. Si no lo 
estuviese el ordenador no sabría Logo 
y no podría entendernos. 
Para cargar el Logo sigue las 
instrucciones: 



SPECTRUM: 

1 . Teclea en tu ordenador LOAD "" y 
pulsa la tecla ENTER. 

2. Introduce la cinta de Logo en tu 
lector de cassette y pulsa la tecla 
PLAY. 

3. El Logo se cargará y ejecutará 
automáticamente. 



MSX: 

Si tienes el cartucho: 

1. Apaga tu ordenador. 

2. Conecta el cartucho de Logo en 
el SLOT de expanxlón. 

3. Conecta el ordenador. 

4. El Logo aparece 
automáticamente. 



Si tienes la cinta: 

1. Teclea en tu ordenador 
CLOAD "",R y pulsa RETURN. 



2. Introduce la cinta de Logo en el 
cassette y pulsa la tecla PLAY. 

3. El Logo se cargará y ejecutará 
automáticamente. 



IBM: 

Para cargar el Logo en el IBM tienes 
que meter primero el disquete del 
MS/DOS. Una vez que lo hayas hecho, 
lee las instrucciones que acompañan 
al disquete de Logo para poder 
cargarlo. 



AMSTRAD: 

Introduce el disquete con el sistema 
operativo CP/M. Cuando éste se haya 
cargado teclea la palabra Logo y 
éste se cargará y ejecutará 
automáticamente. 



COMMODORE: 

El Commodore no tiene Logo en 
español. El único Logo que hay para 
Commodore está en inglés. 
Aunque con estas instrucciones 
puedes cargar el Logo, siempre es 
conveniente que leas las 
instrucciones que te dieron con el 
programa para no cometer errores. 



LOGO 



nos queda un banderín: 




Ahora puedes dibujar muchas más co- 
sas que antes. 



Os proponemos 

1 . Intenta dibujar estas tiguras geomé- 
tricas. Como pista te damos el ángulo 
que la tortuga ha de girar: 



pentágono hexágono octógono 




72 60 45 



2. Ahora sin pistas, pinta un paralelo 
gramo: 




3. Dibuja un barco: 




4. Puedes dibujar un pueblo: 



A 




5. También puedes pintar letras: 

KHNQRVWXXZ 



I 

PASCAL 




L PASCAL es el len- 
guaje más popular 
de los denominados 
«estructurados». Fue 
creado por el suizo 
Niklaus Wirth allá por 
el año 1970. 
A los programado- 



res acostumbrados a otros lenguajes no 
estructurados como el BASIC o el FOR- 
TRAN, lo que les suele llamar la atención 
a primera vista del PASCAL es la nula, o 
casi nula, utilización de instrucciones del 
tipo GOTO , aunque, como se irá viendo a 
lo largo de la colección, esto no es más 
que la punta del iceberg. 

También suele dar la sensación de que 
para hacer un programa en PASCAL hay 
que escribir mucho «rollo»; sin embargo, 
veremos que ello, lejos de ser un incon- 
veniente, contribuye a hacer los progra- 
mas mucho más claros y a disminuir el nú- 
mero de errores que se cometen al pre- 
pararlos. 

Precisamente es éste el principal obje- 
tivo de los lenguajes estructurados, entre 
los que se encuentran, por ejemplo, ade- 
más del PASCAL, el ADA y el MODULA-2. 

El motivo de que, hasta fechas recien- 
tes, el BASIC haya sido el lenguaje más 
difundido entre los ordenadores perso- 
nales se debe a que, dada su simpleza 
— lo que supone una menor necesidad 
de memoria — y el hecho de que es un 
lenguaje «interpretado», los fabricantes 
de ordenadores personales lo escogie- 



ron para incorporarlo de fábrica a sus 
máquinas. Así, para programar en BASIC, 
normalmente lo único que hay que hacer 
es simplemente encender el ordenador 
y empezar a teclear el programa. 

Por el contrario, hasta hace pocos 
años, para programar en PASCAL, como 
normalmente es un lenguaje del tipo 
«compilado», en general había que pa- 
sar por varias etapas. 

En primer lugar había que teclear el 
programa; para ello se utilizaba un «edi- 
tor», que es el tipo de programa que se 
emplea para escribir, por ejemplo, car- 
tas con ayuda del ordenador o este mis- 
mo artículo. El texto del programa así pre- 
parado se guardaba entonces en un «fi- 
chero» en disco o cinta. 

A continuación, se procesaba ese fi- 
chero para traducirlo al lenguaje que 
realmente entiende el ordenador, que es 
el denominado «código máquina». Para 
ello se utilizaba un programa «compila- 
dor» o traductor de PASCAL. 

Por último (y a veces tras un proceso 
adicional llamado en jerga informática 
«link-edlclón»), la traducción así obteni- 
da era entregada al ordenador para su 
ejecución. 

Esta pesada manera de proceder, que 
es la habitual con la mayoría de los len- 
guajes en los ordenadores grandes, tam- 
poco ayudó mucho a la difusión del PAS- 
CAL. 

Hoy día, sin embargo, existen para la 
mayoría de ordenadores personales pro- 
gramas editores-compiladores de PAS- 



PASCAL 



CAL que, una vez cargados en la memo- 
ria del ordenador, permiten desarrollar 
los programas de una manera práctica- 
mente tan cómoda y rápida como con el 
BASIC, pero conservándose toda la po- 
tencia y enormes ventajas del PASCAL 
tradicional. 

En concreto, hay que citar el TURBO- 
PASCAL de la casa Borland que, funcio- 
nando en los ordenadores personales 
IBM y compatibles, se ha convertido en 
el programa compilador más vendido de 
la historia de la informática y ha contri- 
buido decisivamente a convertir al PAS- 
CAL en el lenguaje más popular de la ac- 
tualidad. 

Así pues, lo primero qué tiene que ha- 
cer el lector es proveerse del programa 
compilador más adecuado para su orde- 
nador. Todos ellos suelen traer en su ma- 
nual claros ejemplos ilustrando cómo 
proceder desde la escritura del progra- 
ma hasta que ese programa es puesto en 



marcha. Dada la gran variedad de com- 
piladores existentes, nos procuraremos 
ceñir a lo largo de la colección a una 
versión de PASCAL más o menos están- 
dar, para que así los programas de ejem- 
plo funcionen en todos los casos con el 
mínimo de cambios posible, sin perjuicio 
de que alguna vez se hagan incursiones 
en las peculiaridades de algún ordena- 
dor en concreto. 



Nuestro primer 
programa en 

PASCAL 

Veamos un programa muy corto: 




A 



program Contador; 



(* Este programa presenta números desde 1 hasta el valor de TOPE *) 
(* al mi Bino tiempo, nos enseña los cuadrados de esos números *) 



const 

Tope ■ 10j 
v»r 

Numero i integer; 



BEDIN 

writeln ('El valor limite es ',Tope)| 
writelni 

•for Numero! -1 to Tope do 

writeln (Numeroi3,' al cuadrado e» ' , Numero * Numero)» 
writeln; 

writeln ('PIN DE LA CUENTA. ' ) 
END. 



Tras escribir el programa y seguir los 
pasos exigidos por nuestro compilador 
para ponerlo en marcha, saldrá lo si- 
guiente en la pantalla del ordenador: 



Palabras reservadas 

En el programa hay unas palabras que 
está claro que no las hemos escogido no- 
sotros: program, const, var, integer, be- 
gin... Son lo que se denomina «palabras 
reservadas», es decir, palabras con un 
significado especial que no las podemos 
utilizar para lo que se nos antoje. 

En general, estas palabras las escribi- 
remos con minúsculas (aunque eso va al 
gusto de cada uno), pero |ojo!, puede re- 
sultar que nuestro compilador sea muy 
intolerante y nos exija escribirlas todo 
con mayúsculas, o todo con minúsculas; 
para salir de dudas lo mejor es mirar un 
ejemplo cualquiera en el manual. 

Identlflcadores 

También hay otras palabras escogidas 
por nosotros para dar nombre a algunas 
cosas del programa: Contador, Tope y 
Numero; las palabras de este tipo se lla- 
man «identlflcadores». 

Los identificadores se pueden escoger 
al gusto de cada uno, pero han de empe- 
zar por una letra, tras la cual se puede 
poner cualquier combinación de letras y 
cifras sin espacios en blanco por medio. 

V, BITIO, K2R. SYJ38 

serían identificadores válidos pero 

3Z.P/Q.AVI ON 

serían incorrectos y al Intentar compilar 
un programa con ellos el ordenador nos 
avisaría de la existencia de un error. 



Normalmente procuraremos escribir los 
identificadores con minúsculas excepto 
la primera letra, pero hay que hacer la 
misma advertencia de antes: a la mayo- 
ría de los compiladores les da lo mismo 
que se pongan mayúsculas o minúsculas, 
pero primero hay que cerciorarse. Por 
otra parte, aunque en principio se pue- 
den escoger palabras larguísimas, cada 
compilador se suele fijar solo en los ocho 
o diez primeros caracteres; por ello, pu- 
diera resultar que para él las palabras Es- 
ternón y Esternones fueran una misma 
cosa. 

El lector atento se habrá hecho ya la si- 
guiente pregunta: ¿y qué pasa con eso 
de «Este programa...» o «El valor...»? 

Es evidente que no son palabras reser- 
vadas ni Identificadores; como veremos 
en otro momento, son comentarios y tex- 
tos y, en principio, podemos escribirlos 
como más nos apetezca, sin restricción 
alguna. 

Para terminar, la palabra «wrlteln» es un 
caso especial; es del tipo llamado «iden- 
tificador predefinido», es decir, tiene un 
significado especial (sirve para escribir 
cosas en la pantalla), PERO la podríamos 
utilizar para algo distinto (aunque, lógi- 
camente, ya no serviría para lo de an- 
tes). Sin embargo, y para no complicar- 
nos la vida, los identlflcadores predefini- 
dos los vamos a considerar como pala- 
bras reservadas y no volveremos a hablar 
de ellos (al menos hasta que no sepamos 
mucho más PASCAL). 



SI El programa más corto 

El programa más simple imaginable en 
PASCAL sería el siguiente: 

program MasCorto; 

begln 

end. 

y si lo intentamos compilar no habrá nin- 
gún problema, aunque al ejecutarlo des- 
cubriremos sin sorpresa que no sirve ab- 
solutamente para nada. 

Los programas, en general, sirven para 
procesar datos según una serle de ins- 



C.i vdlur J .1 ni i ww = 


1 0 

J. M 


1 i=\J. l...Ue*ni s:\CUJ (=?5 


* 


2 al cuadrado es 


4 


3 al cuadrado es 


9 


4 al cuadrado os 


i 6 


5 al cuadrado es 


25 


6 al cuadrado es 


36 


7 al cuadrado es 


49 


9 al cuadrado es 
9 al cuadrado es 


64 


10 al cuadrado es 


81 
100 


FIN DE LA CUENTA .. 





I PASCAL 



trucciones. Un programa PASCAL tiene 
por ello dos zonas bien diferenciadas 
para descrlbrir los datos y las instruccio- 
nes, quedando siempre su estructura así: 

program NombreDelPrograma; 



Zona de descripción de datos 



begin 



Zona de Instrucciones 



end. 

Es decir, siempre hay una «cabecera» 
formada por la palabra reservada «pro- 
gram» seguida de algún identificador 
que dé nombre al programa; la cabece- 
ra se termina con un punto y coma. 

Tras ella vendría la descripción de los 
datos; como el programa MasCorto no 
tiene datos, carece de esta zona. 

Por último, vendrían las Instrucciones 
del programa enmarcadas por las pala- 
bras reservadas «begin» y «end» que en 
inglés significan, respectivamente, em- 
pezar y terminar. Como el programa Mas- 
Corto no tiene instrucciones, end se en- 
cuentra justo a continuación de begin. Al 
igual que un párrafo, un programa aca- 
ba siempre con un punto final. 



Hay un detalle muy importante del PAS- 
CAL: podemos utilizar las líneas que que- 
ramos para escribir un programa siempre 
que, eso sí, no partamos entre dos líneas 
ninguna palabra; Incluso se podría escri- 
bir un programa en una sola línea lo bas- 
tante larga. También se pueden separar 
las palabras todo lo que se quiera. 

Por ello, probemos a compilar los si- 
guientes programas: 

program 
MasCorto 

i 
i 

begin 
end. 

program MasCorto; begin end. 

Como ejercicio, podríamos probar a 
reagrupar las diferentes partes del pro- 
grama Contador a nuestro gusto buscan- 
do siempre, por supuesto, la máxima cla- 
ridad, y de paso, cambiar los identlflca- 
dores por otros distintos. 

NOTA: Con algunos compiladores la 
cabecera puede que tenga un aspecto 
ligeramente distinto, como, por ejemplo: 

program NombreDelPrograma 
(Input, output); 

SI es ese nuestro caso, la pondremos 
así sin preocuparnos más de ello por el 
momento. 



OTROS LENGUAJES 

¿QUE ES UN SISTEMA OPERATIVO? 



UN sistema operativo 
es un conjunto de 
programas aue facili- 
tan la comunicación 
entre la parte pura- 
mente física del orde- 
nador (el hardware) y 
el usuario, a la vez 
aue explotan al máximo los recursos y 
posibilidades de la máauina para aue su 
uso sea el óptimo. 



Básicamente, los cometidos de un sis- 
tema operativo se pueden englobar en 
tres gruposj 

— Gestión del propio sistema ordena- 
dor, es decir, supervisar y controlar tanto 
el funcionamiento de la Unidad Central 
de Proceso como de los dispositivos pe- 
riféricos (pantalla, impresora, disauette, 
disco duro ; etc.). 

— Gestión de las tareas que se le en- 
cargan a la máquina, lo cual incluye: 
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• Planificación de los trabajos, para 
conseguir una utilización del sistema lo 
más eficiente posible. Para ello se asig- 
nan prioridades a los trabajos encomen- 
dados, de manera que se ejecutan pri- 
mero los de más alta prioridad, normal- 
mente con poca utilización de los recur- 
sos del sistema (tiempo de procesador, 
espacio de memoria y dispositivos peri- 
féricos), y se dejan los últimos los traba- 
jos de baja prioridad y que necesitan de 
una utilización más exhaustiva de esos 
recursos. 

• Establecer y supervisar las comuni- 
caciones con el entorno, tanto si son de 
entrada (carga de programas y datos) 
como si son de salida (entrega de resul- 
tados). 

• Asignación de los recursos del siste- 
ma a los distintos programas en ejecu- 
ción, que compiten entre ellos por tales 
recursos y podrían provocar por tal moti- 
vo situaciones de conflicto, que deben 
ser solucionadas por un "árbitro". 

— Gestión de los datos, que incluye 
controlar el sistema de ficheros tanto en 
su estructura como en el acceso a los 
mismos, así como los movimientos de los 



datos entre los dispositivos de E/S y la 
memoria principal. 

m Distintos tipos de sistemas 
Iw operativos 

Según los modos de operación de un 
sistema operativo podemos clasificarlos 
en varios tipos esenciales, aunque algu- 
nos sistemas actuales permiten a un or- 
denador trabajar en modos distintos. Es- 
tos tipos a los que hacemos referencia 
son los siguientes: 

1. Sistemas operativos "batch" o se- 
cuenclales por lotes. Permiten ejecutar 
los trabajos uno a uno de una manera es- 
trictamente secuencial. Los programas 
se pueden ejecutar nada mas ser intro- 
ducidos, o memorizarse en algún dispo- 
sitivo de almacenamiento para ejecutar- 
se más tarde, Un sistema funcionando en 
modo "batch" no necesita la atención 
del usuario durante la ejecución de los 
trabajos, en contraposición con los tipos 
siguientes, que son sistemas interactivos 
con el usuario. 




2. Sistemas operativos monousuario. 

Sólo son capaces de atender exclusiva- 
mente a un usuario (de ahí su nombre). 
Son el tipo de sistemas operativos que 
trabajan sobre la mayoría de los ordena- 
dores personales. Tienen la ventaja de 
que su aprendizaje y utilización es muy 
sencilla, pero, por contra, sus prestacio- 
nes son más bien escasas. 

3. Sistemas operativos multltarea. 
Con ellos el ordenador es capaz de eje- 
cutar varias tareas (varios programas) de 
manera simultánea, lo cual no implica la 
existencia de varios procesadores. Estas 
tareas pueden ser encomendadas por 
un mismo usuario, el cual puede supervi- 
sarlas a la vez mediante las oportunas 
veníanos abiertas en pantalla. 

4. Sistemas operativos multlusuario. 
Permiten que el ordenador reparta su 
atención entre varios usuarios o puestos 
de trabajo, ejecutando en cada caso 
una sola tarea distinta (en caso de que 
el sistema sólo tenga un procesador cen- 
tral). No obstante, la velocidad de los 
procesadores es tal que los tiempos de 
espera de los usuarios son casi insignifi- 
cantes. 




5. Sistemas operativos en tiempo real. 

El ordenador debe ser capaz de recibir 
datos tan rápidamente como lleguen, ya 
que en caso contrario se perderán. 



Sistemas operativos para 
ordenadores personales 

Hasta la aparición del primer micropro- 
cesador de 8 bits (el Intel 8080), capaz 
de configurar un microordenador tal y 
como hoy en día los conocemos, el con- 
cepto de sistema operativo estaba en- 
cuadrado en el ámbito de los miniorde- 
nadores y grandes sistemas (malnfra- 
mes). Fue necesaria la aparición del mi- 
croprocesador Z-80 (de Zilog) para que 
se produjera la primera implantación ge- 
neralizada de un sistema operativo para 
microordenadores, que vino de la mano 
del CP/M, siglas de Control Program for 
Microprocessors (Programa de Control 
para Microprocesadores). Durante algu- 
nos años el CP/M fue el sistema operati- 
vo casi exclusivo de los microordenado- 
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res, ya que al adoptar este sistema los fa- 
bricantes permitían a sus equipos acce- 
der a toda la variada gama de progra- 
mas adaptados a CP/M que se estaba 
creando. Su cada vez mayor aceptación 
revirtió en el nacimiento de una bibliote- 
ca (cada vez más voluminosa) de aplica- 
clones que se podían ejecutar en cual- 
quier maquina, siempre que ésta traba- 
jara bajo CP/M. Fue así como se convir- 
tió en el sistema operativo por excelen- 
cia de los 8 bits. 

Otro sistema para micros de 8 bits (con- 
cretamente para el Rockwell 6502) es el 
APPLE. DOS. Este quizá sea, después de 
CP/M, el más implantado, debido sobre 
todo a que la firma norteamericana Ap- 
ple fue una de las pioneras de la revolu- 
ción microinformática. A pesar de la ex- 
clusividad de este sistema operativo 
(sólo se encuentra en microordenadores 



Apple y compatibles de otras firmas), su 
nivel de difusión es alto debido a la gran 
cantidad de programas de aplicación 
desarrollados para él en los últimos años. 

Importantes, también en el entorno de 
los 8 bits, son los sistemas operativos 
UCSD p-SYSTEM, desarrollado en la Univer- 
sidad de San Diego, en California, en un 
lenguaje de programación de alto nivel 
como es el Pascal, y OASIS, primer siste- 
ma operativo multiusuario creado para 
el microprocesador Z-80. <r 

Con la aparición del microprocesador 
Intel 8086, primer miembro de la familia 
Intel de 16 bits, comienza la historia de 
un nuevo sistema operativo, el MS/DOS, 
que actualmente es un estándar (en el 
ámbito de los micros de 16 bits) gracias 
a que IBM lo adoptó en 1981 como siste- 
ma operativo para su ordenador perso- 
nal (el famoso IMB PC). 



ORDENADOR 
CENTRAL 




TERMINAL 3 



IjnB Un ordenador central controla varios terminales 
mediante un sistema operativo multiusuario. 



Por último, un sistema que últimamente 
se está Implantando con fuerza, sobre 
todo en los ordenadores personales de 
mayor potencia, es UNIX, aunque ya nos 
movemos en un entorno multiusuarlo, a 
diferencia de los sistemas operativos an- 
teriormente comentados que son mono- 
usuario (si bien, existen versiones multl- 
puesto para alguno de ellos, por ejem- 
plo, CP/M). 

La concepción de UNIX es totalmente 
distinta a la de MS/DOS o CP/M, ya que 



CP/M 





MS-DOS 




estos dos últimos fueron concebidos para 
su uso exclusivo en microordenadores, 
mientras que UNIX fue concebido para su 
uso en grandes sistemas. Los avances ha- 
bidos en tecnología electrónica y la ma- 
yor potencia cada vez de los micropro- 
cesadores, han hecho posible su migra- 
ción hacia sistemas mlcroinformátlcos, 
con lo cual hoy en día es posible encon- 
trar UNIX en micros, minis y grandes orde- 
nadores. 



MICROORDENADORES 





MICROORDENADORES 
DE 16 BITS 
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